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1. ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THE DISK IS SERA oy og mt THE SEEK TIMES 


ARE WITHIN TOLE 
a aes Bd OPERATES My A THIS. PROGRAM IS PRIMARILY USED 
TO DETERMINE IF THE SEEK TIMES ARE WITHIN TOLERANCES AND NOT 

DATA RELIABLITY. THERE IS een OLUTELY NO WRITTING OF elle 














1 

2 

3 

4 

5 

6 

7? 

8 

9 

10 FOR 

11 INVOLVED IN THIS PROGRAM. HOWEVER, THIS PROGRAM DOES PERF 

12 READ HEADER AND DATA COMMANDS fO DETERMINE IF THE SEEKS 
1? PERFORMED ARE VALID. 

15 

16 

if 2. REQUIREMENTS 

19 
3 2.1 EQUIPMENT 
22 PDP-11 PROCESSOR 

23 12K MEM 

24 LL a pe 
25 PROGRAM” LOADING DEVICE 

26 KW17-L Te thy (THE KW11-P IS REQUIRED FOR THE TIMING TESTS) 
27 we CONTROLLER 

3 O 8 RM80 DISK DRIVES 

3 2.2 PRELIMINARY PROGRAMS 

3 RM80 DISKLESS TEST, PART 1 & 2 

3 RM80 FUNCTIONAL TEST, PART 1, 2 & 3 

3 2.3 MEDIA 

38 THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED 
39 DISK. THE DISK MAY BE FORMATTED IN EITHER 16-BIT OR 18-81 

40 MODE, DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 


WILL NOT TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 


LOADING P PROCEDURE 


THE — ay A. LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
50 OR IT MAY BE LOADED FROM THE APPROPRIATE ‘XXDP* MEDIA USING THE 
23 ASSOCAITED LOADER. THE PROGRAM MAY BE INCLUDED IN AN ‘*XXDP* CHAIN. 





STARTING PROCEDURE 
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os 4.1 STARTING ADDRESSES 

60 44 NORMAL STARTING ADDRESS 

61 04 SELECT OPERATING PARAMETERS 

62 10 SELECT RH CONTROLLER ADDRESSES 

° 14 COMBINATION OF 204 AND 210 

65 ere an ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 


ROGRAM IS INITIALLY STARTED; THESE STARTING ADDRESSES ARE 
TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 


4.2 OPERATOR ACTION 


. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 
. orgs TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON PORT. 


SET SWITCHES (SEE SECTION 5.) 
a4: oe START. 


THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO 
THE SELECTED MASSBUS SUBSYSTEM. ne INHIBIT THIS TYPEOUT, DO NOT 
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES; INSTEAD 
TYPE A ‘eee C* ON THE KEYBOARD TO RETURN THE PROGRAM TO 
COMMAND ENTRY MODE. 


4.3 PROGRAM ACTION 
IN AN oo eos TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
CONSTRUCTIONS HAVE BEEN ADOPTED. 


NOTE1: IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
NOT TYPED BY THE USER. 


NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY 
<CR> AND WILL BE ECHOED AS A ‘CARRIAGE RETURN-LINE FEED’. 


<.><CR> PERIOD 
A STATEMENT a ete tg TYPED AT THE 
Fe OF A LINE (LEGAL ON ALL LINES) IT TELLS 
THE PARAMETER STRING INTERPRETER (PSI) THIS IS 
i ke OF CHANGES TO THE CURRENT PARAMETER 
<..><CR> PERIOD PERIOC 
THE ERIOS PERIOD’ TERMINATOR IS TYPED TO INDICATE 
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
THE START OF TEST EXECUTION. 
<,><CR> COMMA 


THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
AND TEST NUMBERS. 


</> SLASH 


SELESRELLSSLSLRGLLTSLSSELRALATLSYHVSASATASSEVE 


me ee ee eet ad od oo) ed I = I DD 


ed ed ed ed 
SW -—Oo 
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A MODIFICATION INDICATOR: IF A_SLASH FOLLOWS A TEST 
rita WILL OPEN THAT TEST FOR PARAMETER 


<“U> CONTROL-U 


DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE ‘CONTROL KEY"’ 
(CTRL) AND THEN STRIKING THE ‘U"’. 


<\> RUBOUT 


DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE ‘‘RUBOUT’’ KEY. WHICH WILL 
BE ECHOED BY A _BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


4.3.1 CONTROL SWITCH SELECTION 


STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
WITH SW<O7>=1 WILL RESULT IN ENTERING THE "CONTROL SWITCH 
SETTING MODE. THUS, ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF "'C.SWR™. 


CONTROL SWITCH SELECTION EXAMPLES: 
EXAMPLE #1 


SET SW<07>=0 
C.SWR=000000 / 400.. 


EXAMPLE #2 


SET SW<07>=0 
C.SWR=000000 / 220. 
C.SWR=000000 / 220.. 


4.3.2 RH CONTROLLER ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RMCS1), 
AND VECTOR ADDRESS OF THE RH CONTROLLER. IF THE DEFAULT 
VAULE OF THE BUS ADDRESS DOES NOT RESPOND (TIMES GUT) 
WHEN ADDRESSED, AN ERROR IS REPORTED. AFTER THE ERROR 
1S REPORTED ONE OF TWO COURSES OF ACTION WILL BE TAKEN: 


1. IF THERE IS A MONITOR =~ RETURN TO THE MONITOR 
2. IF THERE ISN'T A MONITOR =~ ASK FOR NEW ADDRESSES 


STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
HP THE ADDRESS OF THE RH CONTROLLER AND THE VECTOR 


~ & WWWW VIWPOND Mmror Aas 


VEYRUNLSSETEGRGNASSS 


ee cee eed ee ee ee ed eed ed ed eed ed ed 
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sooo 


abate a ht 
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ADDRESS SELECTION EXAMPLES 
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4.3.3 


4.3.3.1 


EXAMPLE #1 
RMCS1=176700 / 177200. 
EXAMPLE #2 


RMCS1=176700_/ 176300<CR> 
RMVEC=254 / 260<CR> 


EXAMPLE #3 


RMCS1=176700<CR> 
RMVEC=254 / 260. 


EXAMPLE #4 
aden ERR PC RESPOND TO ADDRESSING 


176300 _XXXXX 
RMCS1=176300 } 176700. 


EXAMPLE #5 — . 
wacste} 76700 / 1776\67\6300<CR> 
RMVEC=254<CR> 
RMCS1= 176300. 

DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXECUTED, 
AND THE PARAMETERS TO USE. 


DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 


*R" sich: (ITERATIONS) 
*FC’’ FIRST CYLINDER a 445 t 
AST ADDRESS 


A 

“TT! INCREMENT 

“FS! FIRST SECTOR ADDRESS 

"LS LAST_ SECTOR ADDRESS 

“PAT PATTERN (USED FOR DATA TEST) (NOT USED 
WDX'' WORD OF PATTERN O WHERE X IS 1 TO 16 ( 


ae ALL SEEK TESTS (TESTS 0 - 7) 
07" ALL TIMING TESTS (TESTS 11 = 14) 


* USED BY THE OPERATOR TO SELECT TEST GROUPS 


he 
= 
Cc 
mn 
mm 
J 
~~ 


SEQ 0006 


CZRNGAO RM80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 3-4 
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250 
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SPECIAL CASES OF CONTROL CHARACTERS 


IF <..> IS TYPED WHILE A TEST IS OPEN FOR MODIFICATION 
(</>) AND OTHER TESTS IN THE ‘TEST TRING 
ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


1281 L_BE RUN USING ALL AVAILABLE, ONLINE DRIVES. IF THE 
OPERATOR WISHES TO SELECT THE DRIVES TO BE test TED Ly od S TO BE 
Agta A OR THE PARAMETERS TO BE USED, THE ONVERSATION MODE MAY 


BE ENTERED BY TYPING A ‘CONTROL C* OR BY STARTING THE PROGRAM FROM 
EITHER LOCATION 204 OR 214. 
THE PROGRAM WILL THEN RESPOND WITH: 

DRIVE (S)= 
THE ES Sih ens ASSUME THAT THE OPERATOR IS TO TEST 
tt RSM USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE 

¢ INITIAL CYLINDER eo FINAL CYLINDER ADDRESS, ETC.). 

THE USER WOUL iD TYPE "3<CR>" WHICH SAYS ‘THIS IS THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBER Ss. 
THE TRANSACTION APPEARS AS FOLLOWS: 

DRIVE (S)=3<CR> 

TEST= 
THE OPERATOR MAY NOW ENTER DESIRED TEST ee N THE EXAMPLE, 
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7<,> (THE ‘COMMA’ 
SEPARATES ENTRIES), 11<.><CR> (*PERIOD’ "CARRIAGE RETURN’ ~ 
END OF CHANGES, START TEST EXECUTION.) 
IT NOW LOOKS LIKE THIS 


DRIVE (S)=3<CR> 
TEST=2-7,11.<CR> 


IN THE NEXT ety IT 1s ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
FOR TESTS 3 AND” 10. 
THE TRANSACTION WOULD BE AS FOLLOWS: 

DRIVE (S)=4<CR> 

TEST= 
THE OPERATOR NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
GIVEN BELOW: 


DRIVE (Sp7e< R> 
TEST=1,3/4-7,10/11<CR> 


NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>; 





I 
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286 
287 


289 
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& 
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see e TESTS 4-7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST 
END OF INPUT <.>. 


THE 5s ag sce THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS WILL Nor BE ALTERED. 


(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


et Bd py tact 
i jog/SnF 210/11<CR> 


R=X / sWHERE X IS ITERATION 


THE NEW VALUE FOR 'R’ MAY BE wt gs TERMINATING THE ENTRY WITH 
A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


st NS a a 
TEST=1,3/4=7,10/11<CR> 


EST. 
R=1 / <CR> Ay NOT ALTER-BUT CONTINUE 
FC=N / WHERE 'N' IS FIRST CYLINDER ADDRESS 


IF THE OPERATOR DOES NOT WISH TO CHANGE ‘FC*, THE FOLLOWING OCCURS: 


DRIVE (S)=4<CR> 
TEST=1,3/4-7,10/11.<CR> 
TEST 3 


R=1 / <CR> 3D0 NOT ALTER THIS LINE BUT CONTINUE 
A aes 7D0 NOT ALTER THIS LINE BUT CONTINUE 


THE PROGRAM RESPONDS WITH THE PREVIOUSLY assioe PARAMETER FOR LAST 
AS os tyt 23 IN THIS ‘ct ples G 560 A E EXAMPLE. THIS IS 
WHAT THE OPERATOR INTENDED TO MODIF y AND. is May ST 3 WAS 

OPENED. TO CHANGE THE VALUE *0 20", THE NEW VALUE IS TYPED 
FOLLOWED BY A ‘PERIOD’ TERMINATOR (<.><CR>). 


THE TOTAL TRANSACTION AND RESPONSE: 


DRIVE (S)=4<CR> 
TEST=1, oglinl. 210/11<CR> 
TEST 


R=1 tx <— 4 

FC=0 / 

LC= 560° j 0. <CR> 
TEST 10 


THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW gern the AND THE 
PROGRAM IS WAITING FOR CHANGES TO TEST 10°S PARAMETERS. 


4 No Dy R> 
a iO ead 210/11<CR> 
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4.3.3.2 


R=1 / — 

FC=0 / < 

LC= 560° ¢ R30. <CR> 
TEST 10 

R=1 / 10.<CR> 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A ‘PERIOD’ ‘CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


DRIVE(S)= 
ge THE USER DID NOT END THE CONVERSATION MODE WITH A ‘PERIOD PERIOD’, 
THE PROGRAM HAS LOOPED BACK TO THE BEGINNI OR MORE 
CHANGES. THAT IS TO SAY, A LEC 
<,><CR> WILL CAUSE THE TEST MESSAGE TO BE ah gh bc AND FURTHER 
CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 
THE PROGRAM, A ‘PERIOD PERIOD’ MUST BE TYPED. 
IF A SINGLE ‘PERIOD’ IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING 


ENTERED, THE aeons AM WILL ag EXECUTION IMMEDIATELY. A ‘PERIOD 
PERIOD’ MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER 


DRIVE AND PARAMETER SELECTION EXAMPLES 


EXAMPLE #1 

DRIVE=4.<CR> sSELECT DRIVE #4, TERMINATE AND 
“BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
[PARAMETERS 

EXAMPLE #2 

DRIVE=0<CR> ;SELECT DRIVE #0 AND MAKE CHANGES "*,"" 

TEST=1-5.<CR> “RUN TEST 1 THRU 5 ONLY, USE DEFAULT 
*PARAMETERS AND TERMINATE AND EXECUTE." 

EXAMPLE #3 

DRIVE=2<CR> :SELECT DRIVE #2 AND MAKE CHANGES ‘‘,"° 


TEST=1-5 ,6/7/10/<CR> 3RUN_ TEST 1-5 WITH ere PARAMETERS, OPEN 
TEST 6 ;TEST 6,7. AND 10 FOR 


R=1 / <CR> LEAVE *R* AS _IS AND MOVE TO NEXT PARAMETER 
FC=0 / 10.<CR> ZSET ‘FC’ CYLINDER ADDRESS TO 10, END CHANGES 
TO TEST 6. 
TEST 7 
R=1 / S50<CR> 350 ITERATIONS, MOVE TO NEXT PARAMETER 
FC=C / <CR> [D0 NOT CHANGE ‘FC’ CYLINDER ADDRESS BUT CONTINUE 
LC=500 / 50..<CR> ;TEST 10 IS STILL PENDING AND WILL BE 


SEQ 0009 


CZRNGAO RM8&0 


5.1 
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EXAMPLE #4 


DRIVE=0<CR> 
TEST=S.<CR> 


EXAMPLE #5 


DRIVE=1<CR> 
TEST=S/T<CR> 
TEST 0 
R=10 / 
FC=0 / 10. <cR> 


EXAMPLE #6 


DRIVE=1<CR> 
TEST=S/<CR> 


TEST 0 
ete | / 100.<CR> 
. aa ige / 1000.<CR> 


Ret / y rie 
FC=0 / 50<C 
LC=560 / si. ReCR 


ES 
R=1.<CR> 

TEST 4 
R=1..<CR> 


EXAMPLE #7 


DRIVE=0,1,4<CR> 
TEST=0-5/<CR> 
TEST 
R=10 / — 


FC=0 / <CR 
Lc=560 / 1. .<CR> 


SWITCH SETTINGS - 


sRETAIN ITS PRESENT PARAMETERS. 


sSELECT DRIVE #0 AND MAKE CHANGES 


sRUN ALL SEEK TESTS 


sRUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 
THE TIMING TESTS (WITH DEFAULT PARAMETERS). 


ZRUN WITH 10_ITERATI 


E 
sCHANGE FIRST LA | ADDRESS 


; AND ee 


EXE 
sTESTS 1 = 10 WILL RETAIN THEIR PREVIOUSLY 


S ASSIGNED PARAMETERS. 


;OPEN THE SEEK TESTS (TESTS 0-7) 


CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST 


sCHANGE 'R® TO 1000 ITERATIONS, 


3 CHANGE one TO 10 ITERATIONS, GO TO NEXT PARAMETER 
CHANGE ‘FC* TO 50, GO TO NEXT PARAMETER 
GO TO THE NEXT TEST 


sCHANGE ‘LC* TO 51, 
sMOVE TO NEXT TEST 


MOVE TO NEXT TEST 


SEQ 0010 


:USE TEST 4°S PARAMETERS AND START PROGRAM EXECUTION 


sTEST DRIVES 
7CHANGE TEST 


ol, AND 4 IN SEQUENCE 


sCHANGE LAST CYLINDER a 560 TO 1 


ZSTART PROGRAM EXECUTION 


OPERATIONAL SWITCH :SETTINGS 
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— 
SEQ 0011 | 


IF THE PROGRAM IS eee RUN ON A SWITCHLESS PROCESSOR THE a a 


WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 
SE A ‘SOF E E ‘SOFTWARE’ 


LG’. 4 G OGN 
T ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR 
AT A HIGHER PRIORITY wea - DRIVE INTERRUPT. ATHE "SOFTWARE ® 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 


PROMPT FROM THE SWITCH ENTRY ROUTINE: 


EACH TIME SWITCH SETTINGS ARE pind THE oF hee SWITCH REGISTER 
IMAGE MUST BE EN 


AND 


NTERED. LEADING ZEROS ARE 


NOT REQUIRED. 
"CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
SWITCH ENTRY. 


ON PROCESSORS WITH we. SWITCH REGISTERS, THE Spin SWITCH 


PROGRAM FINDS ALL 1°S_IN THE SWITCHES. 


STER MAY BE U IF THE 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE + SOFTWARE” REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


THE SWITCH SETTINGS ARE: 


SW<15>=1 


SW<06>=1 


(C. Suk). AN 


pees Must CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..), 
CARRIAGE RETURN. 


THE C.SWR SETTINGS ARE: 
C.SWR<14>=0 
C.SUR<13>= 
C.SWR<12>=0 


AND A 





CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 
TO ENTER THE CONTROL SWITCH SETTING MODE PLACE Sw<07>=1 

N UPON STARTING TH 


BEFORE PRESSING START. TH T THE PROGRAM I 
WILL hg # My Aye CONTENTS OF THE CONTROL SWITCH ee 


Seagal 


HALT ON ERROR 
LOOP ON TEST 
at ag ERROR eens 
INHIBIT ITERATIONS 
RING BELL ON ERROR 
LOOP ON ERROR 
PRINT ERROR atid ON LINE PRINTER 


*C.SWR* SETTINGS FROM TTY 
INHIBIT TIME REPORTS (TESTS 11-15) 





| NEW SETTING TO BE INPUT. 


NO STALL BETWEEN 
STALL AFTER EVERY 
USE precy 
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6. 


6.1 


6.1.1 


6.1.2 


6.1.3 


C.SWR<08>=0 DO IMPLIED SEEKS WITH DATA TRANSFERS 
= bO EXPLICIT SEEKS ee v7) DATA T/ANSFERS 
C. SWR<07>=0 DO READ HEADER AND DATA COMMANDS IN TESTS 0-7 
DO EXPLICIT SEEK COMMANDS IN TESTS 0-7 
0 HZ POWER SOURCE 


C.SWR<06>=0 6 

=1 4 Z POWER SOURCE 
C.SWR<05>=0 ALLOW SOFTWARE TIMEOUTS(ENABLE WATCHDOG TIMER) 

=1 INHIBIT hg * i RS he WATCHDOG TIMER) 
C. stint OPERATE IN 32. S R (16 BIT) MODE 


OPERATE IN 30. SECTOR (18 BIT) MODE 
THE DEFAULT CONDITION OF C.SWR<15:00>=0. 
REFER TO 4.3.1 FOR C.SWR SELECTION 


ERRORS 


IS MADE AND 
TO THE ERROR WILL BE TYPED. PACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


1. AN_ERROR MESSAGE 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR 


THESE ERRORS WILL BE DETECTED BY THE RH/RM DRIVER. 
THERE ARE TWO CLASSES OF Ww: VER ERRORS; THOSE THAT 

CAN NOT BE ipentir ie IN_A MANNER THAT ALLOWS THE me 
INFORMATION TO .* tae TO a atte PARAMETER BLOCK 
(DPB) AND THOSE THAT CAN. LAG LASS WILL BE 
REPORTED BY LS (EMT Ass GITHIN THE DRIVER. 
THE SECOND CLASS WILL PASS THE ERROR CODES TO THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB. 


NON-FATAL ERRORS 

THESE ERRORS WILL BE DUE TO ‘DISK’* OR ‘DATA’ FAILURES 
WHICH WILL BE REPORTED AS THEY occur. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 


FATAL ERRORS 


SEQ 0012 
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6.2 
6.2.1 


6.2.2 


6.2.3 


8.1 


8.2 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL_BE REPORTED WHEN IT OCCURS Lyf THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGRAM 


ERROR RECOVERY 

PRETEST ERROR © 

WHEN gg TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW T: PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 

NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS HM WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


RESTRICTIONS 


N 18 
BIT MODE eg ON_THE it OF *S.SWR<00>*. IF °C.SWR<00>° 
BE TESTED IN 18 BIT T 
wees DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT AODE AND 18 BIT MODE vee ON THE SAME SYSTEM. 
ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 
BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS mst BE MOUNTED 


ON THE ag hats WHICH WILL BE TESTED. THE PR Ss 
gt gh i. A ld PACK. THE FORMAT OF THE PACK IS NOT ALTERED 


MISCELLANEOUS 


EXECUTION TIME 


ia REQUIRES APPROXIMATELY 10 MINUTES TO MAKE ONE PASS _WITH 
gr vies THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 
11, 1 DEFAULT TEST PARAMETERS. 


STACK POINTER 


SEQ 0013 
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628 
6 9 THE STACK POINTER IS INITIALLY SET TO 1100. 
6 } 8.3 TIMING TESTS (TESTS 11-15) PRINTOUTS 
633 AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
634 MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL OF THE 
635 SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
6 HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON 
637 THE SAME LI — MINIMUM TIME. TH 
638 MAXIMUM WILL BE Tye LINE AS THE MAXIMUM 
629 TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
640 SAME LINE AS THE AVERAGE . 
64 
643 8.3.1 TIMING TOLERANCES 
645 2 1, TEST 11 == ROTATIONAL SPEED TIMES 
648 RINIMUN=15970 us 
649 i MAXIMUM=17270 US 
630 NOMINAL=16670 US 
65 50 HZ 
65 MINIMUM=15970 US 
654 MAXIMUM=17270 US 
635 NOMINAL=16670 US 
637 2. TEST 12 == ONE CYLINDER SEEK TIMES 
659 MAXIMUM=6000 US 
661 3. TEST 13 == AVERAGE SEEK TIME TEST (NOT DEFAULT) 
663 | MAXIMUM=25000 US 
665 ** THERE ARE aNd SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME 
666 * ON THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE ** 
667 t* USED FOR REFERENCE ONLY. ee 
669 4. TEST 14 == MAXIMUM SEEK TIMES 
671 MAXIMUM (FORWARD) =50000 US 
67 #* THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE ** 
67% #* SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE ** 
675 ae SEEK TIMES ABOVE THE MAXIMUM TIME oF 0.0 MS WILL NOT BE ** 
676 ee TYPED IN THE TIMING REPORT. HOWEVER. alte TIMING REPORT ** 
677 ee WILL STILL TYPE THE MINIMUM IAM AND AV RAGE TIMES * 
678 ee FOR THE REVERSE SEEKS. (SEE SECTION 3.2, EX. a 
680 5. TEST 15 == AVERAGE SEEK TIME MEASUREMENT (NOT DEFAULT) 
682 MAXIMUM=25000 US 
684 #* WARNING = THIS TEST TAKES APPROXIMATELY 3.0 HOURS TO RUN *e 
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685 


8.3.2. 


TIMING TESTS PRINTOUT EXAMPLES 


EXAMPLE a 


ROTATIONAL SPEED TIMES 
MIN=16670 US 


MAX=16690 US 

Ave=16680 US 10 SEARCHES TIMED 
ALLOWABLE RO ROTATIONAL SPEED LIMITS FOR RM8O 
m= 19090 us 
ONE CYLINDER SEEK TIMES 
NIN=5350 us 
MAX=5920 U 
AVG=3550 US 559 SEEKS TIMED 
mIN=S040 US 

MAX=5970 US 
Ave=3350 US 560 SEEKS TIMED 


ALLOWABLE ONE CYLINDER SEEK LIMIT 
MAX=6000 US 


AVERAGE SEEK TIMES 

MIN=23770 US 

MAX=24 US 

AVG=24230 US 128 SEEKS TIMED 
* REVERS 

MIN=23 

MAX=24550 US 

AVG=24220 US 128 SEEKS TIMED 

Ses yy StH AVERAGE TIME LIMIT 


ag + SEEK TIMES 
FORWARD 
miN=47990 . 
MAX=4 apse Gs 
AVG=48010 US 128 SEEKS TIMED 
* ney R 
MIN=47120 US 
pert US |. 
AVG=48 US 128 SEEKS TIMED 
ALL MAXIMUM (FORWARD) SEEK TIME LIMIT 
ASUS 


EXAMPLE #2 





SEQ 0015 
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742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
761 
762 
763 
765 
766 
767 
768 
769 
771 
77 
77 
774 
5 
776 
777 
778 
779 
781 
782 
783 
785 
786 
787 
789 
791 
79 
79 
795 
797 
798 


8.4 


ROTATIONAL SPEED TIMES 


MIN=16670 US 


MAX=16690 US 
AVG=16680 US 10 SEARCHES TIMED 
aLLOWARLS fe ROTATIONAL SPEED LIMITS FOR RM80 


MIN=15 
MAX=1 7270 us 


ONE CYLINDER SEEK TIMES 
* WAR 


* REVERSE 
MIN=3040 US 
MAX=5970 US 
AVG=5330 US 


3 ABOVE THE MAXIMUM OF 6000 US 


559 S$ 


560 S$ 


EEKS TIMED 


EEKS TIMED 


ALLOWABLE ONE CYLINDER SEEK LIMIT 


MAX=6000 US 
AVERAGE SEEK 
* FORWARD 


*R 
Me 620 


2230 US 
AVG=32800 US 


TIMES 


73_ ABOVE THE MAXIMUM OF 25000 US 


128 


188 


SEEKS TIMED 


ABOVE THE MAXIMUM OF 25000 US 
SEEKS TIMED 


ALL OWABL aaa TIME LIMIT 


MAX=250 
—— seex 
MIN= 


nicest 
ayen3¢ 3% Us 


TIMES 


138 


ABOVE THE poenteans OF 50000 US 
SEEKS TIME 


MINS 005 EUs 

MAX=57550 US 

AVG=56210 US 128 SEEKS TIMED 

bert + ata (FORWARD) SEEK TIME LIMIT 


MAX=500 


END OF TEST 


WITH ALL or Mbit ON A *0" ANE 
AT THE COMPLETION OF Test 

TYPEOUT WILL OCCUR WHEN ALL DRIVE 

END OF TEST COULD OCCUR ON A DRIV 


TYPED A 


IVE _AND 


wer’ + te 


R 
VE BEEN TESTED, NL 
F THE MAXIMUM ERROR 


SEQ 0016 


2 
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805 


Seeear 


99.00.00.09 00 09 02 02 09.09.09.0900 
— —) wd 4) 2 I 
NIODDNOULWN =O 


823 


84 


ener tt 32 23 27 


co 
w 
wa 


9.1 


9.2 


IN LOCATION ‘ERMAX' IS EXCEEDED. 


PROGRAM DESCRIPTION 


THIS PROGRAM CONTAINS 16 TESTS, NUMBERED 0-15 IN OCTAL. 
TESTS O-7 WILL READ THE CYLINDER, TRACK, AND ra? ceee INFORMATION 
ROM THE USING AD HEADER AND a COMMAND, AND 


NF ORMAT NSURING 
THE SEEK OPERATION FUNCTIONS PROPERLY. T S41tha WILL MEASURE 
THE ROTATIONAL tit THE ONE CYLINDER SEEK THE AVERAGE SEEK TIME, 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 
TOLERANCES ALLOWED. TEST 15 MEASUAcS THE AVERAGE SEEK TI 
FOR UNIQUE NUMBER OF SEEKS, BUT DOES NOT HAVE ANY PASS/FAIL 


RIVE BEFORE MOVING TO RI 

sce iP WILL BE TYPED AT THE BEGINNING OF EACH PASS, m, ate ee 
PASS'* MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH P. 
AN "END OF TEST’’ MESSAGE WILL BE TYPED AFTER TESTING ALL tS baives. 


oe TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS OF EACH 


TEST 0 = RECAL/RANDOM SEEK TEST 


THIS EST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE COMMAND 
AND THEN SEEK TO A RANDOM C YLINDER BETWEEN ‘FC’’ 

THE COMPLETION OF BOTH COMMAND $ STATUS INDICATORS ARE fue cKED 
TO ENSURE THAT NO ERRORS OCCURRED. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


Fe ° - 
Le = 560 
FT - 0 
FS 7 


TEST 1 = SEEK/SEEK TEST 
THIS TEST, WILL CAUSE JHE, DRIVE TO EXECUTE A. FORWARD SEEK 
GYCLE 10 120, LS*" FOLLOWED BY A REVERSE SEEK CYCLE TO 


*T"’, fsit x T THE COMPLETION OF EACH SEEK, THE PR 
Tabs EATORS’ ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


Fe . _ 


SEQ 0017 
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856 LC - 25 

857 IC - 

858 FT ° 

859 LT - 

860 FS - 

861 LS - 0 

865 9.3 TEST 2 = INCREMENTAL SEEK TEST 

865 THIS TEST WILL COMMAND, FORWARD .SEFK, CYCLES TO ADVANCE THE 
866 CYL LINDER ADDRESS Y THE INCREMENT “IC'’. 
867 THE RESULTANT NDER TApp bess? (Ne) EXCEEDS 

RGB MEN REVERSE SEEK cvetes ARE INITIATED; STARTING 

869 AT THE L CRE NTING BY "* 

870 UNTIL NC’ IS LESS YHAN "EC’’ AT THE COMPLETION OF EACH 
871 SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

872 ENSURE PROPER OPERATION. 

ore THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 

876 R - 1 

877 FC - 0 

878 LC - 56 

879 IC - 1 

880 FT ° ; 

883 9.4 TEST 3 = STEPPING SEEK TEST 

885 THIS TEST T Witt COMMAND, S SEEK CYCLES TO CYLINDER 0, 1, 2, 4 
886 16, 32 8, 256 12. AT THE COMPLETION oF "EACH ge; 
887 COMMAND one paoben INDICATORS ARE EXAMINED TO VERIFY PROPER 
888 OPERATION. 

890 THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 

4 R - 

89 FC - 

894 LC - 51 

895 Ic - 1 

896 FT ° : 

899 9.5 TEST 4 = OSCILLATING SEEK TEST 

901 THIS TEST WILI, COMMAND SEF CYCLES FROM “FC TO “NC'* AND BACK 
302 TO *FC™. “NC” STARTS A AND. INCREMENTS BY “‘IC'' UP TO CYLINDER 
90 LC’', THEN IS DECRERENTED BY “‘IC’’ BACK TO CYLINDER "FC’’. AT THE 
904 COMPLETION VERY COMMAND THE PROPER INDICATORS ARE 
905 EXAMINED TO ENSURE PROPER OPERA 

$07 THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 

909 R - 1 

31 Tso ol 

912 Ic - 


SEQ 0018 
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913 FT - 8 
$8 jaan 
a 9.6 TEST 5 = CONVERGING/DIVERGING SEEK TEST 
918 THIS y+ WILL GAUSE | me E Prive TO EXECUTE FORWARD AND REVERSE 
919 SEEKS FROM "NC1"" RESPECTIVELY, ‘NC1"" WILL BE. INCREMENTED 
920 BY ‘IC’ AND 'NC2" AUT Moe DECREMENTED BY "“IC'* UNTIL “NCI IS 
921 GREATER THAN THE INITIAL V. ys 7 *NC2"* AND ‘NC2"’ IS LESS THAN 
922 THE ae A pa LUE OF aT Farin Ay HE ye pes Ae A EACH SEEK 
923 COMMAND OPER pie E EXAMINED TO ENSURE PROPER 
3S¢ SPERATION. Net Neo DEPAULT TO ‘FC’* AND tte RESPECTIVELY. 
ass THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
928 R e 1 
929 FC a 8 
930 LC ° 56 
931 Ic ° 1 
932 FT 8 
si pally 
ote 9.7 TEST 6 = SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 
937 IN THIS TEST ‘ SEEK IS DONE TO CY eies THEN A SEEK TO 
938 NC+4 THEN NC+1 — ate THEN NC+ NC+5. NOW “NC** IS UPDATED 
939 BY “‘IC** AND THE ABO Ay UENCE IS REPEATED ert re 
940 EXCEEDED BY _ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF ‘WC"" 
941 Ss AT THE COMPLETION OF EACH SEEK COMMAND THE 
ang PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
one THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
946 R - 1 
947 FC ° 8 

LC ° 56 

pet 

FS - ; 


9.8 TEST 7 = RANDOM SEEK TEST (NOT DEFAULT) 


THIS TEST PERFORMS RANDOM SEEK iat BETWEEN CYLINDERS ‘FC° 

‘LC’. AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE ae ADDRESS IS The cate FOR EACH SEEK SO THAT VERIFICATION 

OF POSITIONING OCCURS U we Fag HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARAMTERS Te AND 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
5 
56 


PSEA Ss cet er aaa 
G2n2 
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970 9.9 TEST 10 = ALL SEEKS TEST 
97 THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
as TO ALL OTHER CYLINDERS. 
975 BEGINNING. WITH CYLINDER ‘FC’, THE TEST SEEKS TO EACH CYLINDER 
976 BETWEEN AND "LC* FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
977 ADDRESS 1s INCREMENTED AND ONE. TEST SEEKS BETWEEN THE NEW CYLINDER 
978 ADDRESS AND ALL CYLINDERS BETWEEN ‘Fc’ AND ‘LC’. THE SEQUENCE 
979 CONTINUES UNTiE ALL CYLINDERS HAVE BEEN CHECKED. 
81 THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 
983 R - 1 
984 FC - 0 
985 LC - 56 
986 ic - 1 
987 FT - 0 
988 FS - 0 
990 9.10 TEST 11 = ROTATIONAL SPEED TIMING TEST 
pak THIS TEST WILL START A SEARCH TO CYLINDER *FC'. TRACK 'FT* 
99 SECTOR "FS*. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS 
99% SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE IS 
995 REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED AND 
996 CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 
998 LO LIMIT (16.67MS = 4.32) = 15.97MS IF 50/60 HZ. 
+44 HI LIMIT (16.67MS + 3.5%) = 17.27MS IF 50/60 HZ. 
1001 THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
1903 - 1 
1004 FC - 0 
1005 FT © : 
138 epi 
1008 9.11 TEST 12 = ONE CYLINDER SEEK TIMING TEST 
1010 THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
1011 CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
101¢ CYLINDER ‘LC’, THEN REVERSE SEEK TO CYLINDER "FC’. THE 
101 TIME TO PERFORM EA EA cH SEEK IS CHECK KED TO ENSURE IT DOES NOT 
1014 EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
1015 MAXIMUM TIME IS 6.0 MS 
1017 THE TEST USES THE FOLLOWING PARAMETERS: 
138 areiey 
10 1 Le - 560 
10 § 9.12 TEST 13 = AVERAGE SEEK TIMING TEST (NOT DEFAULT) 
1025 THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER *FC* TO 
10 CYLINDER "LC', THEN A REVERSE SEEK FROM CYLINDER ‘LC* TO 


I 2 
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027 CYLINDER "FC". BOTH SEEKS ARE. TIMED AND CHECKED TO ENSURE THEY 
098 ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK TIME. 

029 THIS, SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL OF 256 SEEKS). 
030 MAXIMUM TIME IS 25.0 
0 e® THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME *# 
0 se ON. THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE ** 
0 s® USED FOR REFERENCE ONLY. #* 
0 THE TEST USES THE FOLLOWING PARAMETERS: 
5 Fe ‘ / 

LC . 155 


9.13 TEST 14 = MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER he ® TO 

CYLINDER ‘LC*, THEN A REVERSE SEEK FROM ae *Lc’ T 

CYLINDER 'FC'. BOTH SEEKS ARE TIMED, BUT ONLY THE FORWARD SEEKS 

a | Siri 10, See THEY ARE WITHIN THE TOLERANCE AL D F 
THE ang THIS SEQUENCE IS REPEATED pt AF TIMES (FOR 

A TOTAL, OF 256. SEEKS). MAXIMUM (FORWARD) TIME IS 5 


hur autaantt tat tat er eeat Stier cp 


§ 
§ t+ THERE 1S NO SPECIFICATION, GIVEN FOR THE. MAXIMUM REVERSE +* 
5 s+ SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE +¢ 
$ e* SEEK TIMES ABOVE THE MAXIMUM TIME OF 50.0 MS WILL NOT BE ** 
5 See nes ABOVE eG REPORT” HOUEVER, THE TIMING REPORT 
5 s* WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES ** 
5 se FOR THE REVERSE. SEEKS. ee 
05 THE TEST USES THE FOLLOWING PARAMETERS: 
FC . 
we 560 


9.14 TEST 15 = AVERAGE SEEK TIME MEASUREMENT. TEST (NOT DEFAULT) 


ee Oe ee ee ce ee ce ce ce me ce ce ce ce a ee et ee ae ed ed ed ad ed ed ed ad ed ed ed 


SFEREE 


1066 THIS TEST eet AVERAGE SEEK TIME BY DOING ALL UNIQUE SEEKS 
1067 BETWEEN LC* AND MEASURING THE SEEK TIMES. THE TOTAL 
1068 SEEK TINE” FOR AL ALL SEEKS 3 ven DIVIDED BY THE ‘ary OF SEEKS 
1069 PERFORMED TO PROVIDE AN GE se a TIME VALUE FOR THE RANGE 
1000 OF SEEKS TIMED. MAXIMUM TIME it: 2 

10% #* WARNING = THIS TEST TAKES APPROXIMATELY 3.0 HOURS TO RUN ** 
Or THE TEST USES THE FOLLOWING PARAMETERS: 

107 - 

ie eae 

1079 

1080 10. PROGRAM LISTING 

1082 a 
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34 s*LAST REVISION 24-SEP-81 
40 TITLE CZRNGAO 0 RB0 FCTNL PT4 
*COPYRIGHT 
$SDIGITAL Losfenent CORPORATION 
;#COLORADO SPGS., CO. 80919 
;SPROGRAN BY MIKE LEAVITT 
¢STHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
{SPACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR=81 
41 :SBTTL OPERATIONAL SWITCH SETTINGS 
se SWITCH USE 
* 15 HALT ON ERROR 
3 14 LOOP ON TEST 
it 13 INHIBIT ERROR TYPEOUTS 
* 1 TYPE TEST NUMBER 
it 1 BELL ON ERROR 
ze 9 LOOP ON ERROR 
7* fa PRINT ERROR MESSAGE ON LINE PRINTER 
42 i* 7 READ °C.SWR' SETTINGS FROM TTY 
43 * 6 INHIBIT TIME REPORTS (TESTS 11-14) 
23 -SBTTL CONTROL SWITCH SETTINGS 
35 i SWITCH STATE USE 
61 i* 14 0 NO STALL BETWEEN DRIVE FUNCTIONS 
62 7* 1 STALL AFTER EVERY DRIVE FUNCTION 
6 ie 13 0 ose LOECIFIC STALL TIME 
64 oe 1 USE RANDOM STALL 
65 te 12 0 NO INCREMENTING STALL IN TEST 4 
66 ie 1 DO INCREMENTING STALL IN, TEST 4 
71 te 7 0 DO “READ HE DATA’ IN TESTS 0-10 
fe 7* 1 DO EX EXPLICIT SEEKS IN TESTS 0-1 
:* 6 0 
74 3* 1 
75 * 5 0 WATCHDOG T 
76 i* 1 TNNIBIT WATCHDOG LIMER 
77 ie 0 0 TEST DRIVE(S) IN ; . SECTOR (16 BIT) MODE 
28 * 1 TEST DRIVE(S) IN 30. SECTOR (18 BIT) MODE 
80 .SBTTL BASIC DEFINITIONS 
#INITIAL ADDRESS OF THE STACK POINTER *#* 1100 ee 
001100 STACK = 1100 
104000 ERROR = EMT s:BASIC DEFINITION OF ERROR CALL 
000004 SCOPE = 1OT BASIC DEFINITION OF SCOPE CALL 
jsMISCELLANEOUS DEFINITIONS 
000011 1 3;CODE FOR HORIZONTAL TAB 
900012 LF * 1 7:CODE FOR LINE FEED 
1 CR = 1 3:CODE FOR CARRIAGE RETURN 
$50200 CRLF = 200 ?:CODE FOR CARRIAGE RETURN@!.INE FEED 


SEQ 0022 
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177776 ee 177776 ::PROCESSOR STATUS WORD 
177774 STKLMT = 177774 3s STACK LIMIT REGISTER 
77772 = 177772 OGRAM INTERRUPT REQUEST REGISTER 
177570 = 177570 + HARDWARE SWITCH REGISTER 
177570 DDISP = 177570 S:HARDWARE DISPLAY REGISTER 
»*GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO = 20 3:GENERAL REGISTER 
000001 R1 = %1 + GENERAL REGISTER 
00000 R > te t:GENERAL REGISTER 
00000 R =% + :GENERAL REGISTER 
000004 R4 = %4 *:GENERAL REGISTER 
000005 RS = %5 +:GENERAL REGISTER 
900006 R = %6 + GENERAL REGISTER 
00000 R = %7 + GENERAL REGISTER 
000006 SP s 16 *:STACK POINTER 
000007 PC =% = :PR OUNTER 
:*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 zsPRIORITY LEVEL 0 
000040 PRI = 40 PRIORITY LEVEL 1 
000100 pRe = 100 ::PRIORITY LEVE! : 
000140 PR = 14 * PRIORITY LEVEL 
000200 PRS = 200 + PRIORITY LEVEL 4 
000240 PRS = 240 33PRIORITY LEVEL 5 
000300 PR = 00 IORITY LEVEL 6 
000340 PR = 3% : PRIORITY LEVEL 
WITCH REGISTER" SWITCH DEFINITIONS 
100000 in = 100000 
040000 Sw14. ss = 4000 
020000 Swi3 ss = 200 
910000 SWi2 ss 1000 
000 SW11 ss =: 4000 
002000 swi0 = 2000 
1000 sw09 = 1000 
00 Sw0. =4 
$0 s,s 100 
= 
a eis 
= 
000010 sw03. = 5 
sw0 =4 
2 Sw0 = ; 
1 = 
1 SW9=S 


= 


LSRSSSSS 


S 
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BASIC DEFINITIONS 


-*DATA BIT DEFINITIONS (BIT00 TO B1T15) 

100000 B1T15 = 100000 

040000 BIT14 = 40000 

020000 BIT13 = 20000 

010000 BITi2 = 10000 

004000 BIT11 = 400 

002000 BIT10 = 2000 

001000 BIT09 = 1000 

000400 BIT08 = 400 

000200 BIT07, = 20 

000100 BIT06 = 100 

000040 BIT0S = 40 

000020 BIT04 = 20 

000010 BIT03 = 10 

000004 BIT02 = 4 

000002 BITO1 = ; 

000007 BIT00 = 

001000 BIT9=BITO9 

000400 B118=B1108 

000200 BIT7=B1T0 

000100 BIT6=B1T06 

000040 BIT5=B1T05 

000020 BIT4=BIT04 

000010 BIT3=B1T03 

000004 BIT2=B1T02 

000002 BIT1=B81T01 

000001 BIT0=B1T00 

;*BASIC "'CPU'' TRAP VECTOR ADDRESSES 

000004 ERRVEC = 4 :TIME OUT OTHER ERRORS 

000010 RESVEC = 10 3 SRESERVED AND ILLEGAL INSTRUCTIONS 

000014 TBITVEC = 14 33°" BIT 

900014 TRIVEC = 14 [TRACE TRAP 

14 BPTVEC = 14 3 SBREAKPOINT TRAP (BPT) 

000020 IOTVEC = 20 3 INPUT/ QUTPUT TRAP (IOT) **SCOPE** 

000024 PWRVEC = 26 AIL 

000030 EMTVEC = 30 $ FAULATOR TRAP (EMT) *#ERROR** 

000034 TRAPVEC = 34 RAP’* TRAP 

000060 TKVEC = 60 t:TTY KEYBOARD VECTOR 

000064 TPVEC = $4 ::TTY PRINTER VECTOR 
& 000240 PIRQVEC = 240 t:PROGRAM INTERRUPT REQUEST VECTOR 
ge SCONTROL AND STATUS REGISTER 1 (RMCS1) 
Bi 000100 1E = 100 s INTERRUPT ENABLE (BIT #6) 
BS 200 RDY = é SREADY (BIT #7) 
£6 400 Al = THIGH ORDER BUS ADDRESS BIT (BIT #8) 
g? 1 A =1 SHIGH ORDER Bus ADDRESS BIT (BIT #9) 
88 2 PSEL = 3 3PORT SELECT. ( BIT # 
89 2 MCPE = SSBUSS PARITY ERROR (BIT #13) 
90 TRE = 4 S TRANSFER ERROR (BIT #14) 
31 SC =1 SSPECIAL CONDITION (BIT #15) 
3 :WORD COUNT REGISTER (RMWC) 
34 : (EACH BIT IS CALLED BY BIT NUMBER) 
96 :BUS ADDRESS REGISTER (RMBA) 


SEQ 0024 





M 
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BASIC DEFINITIONS 


~o 
vv 


o 
Ss 


ATlS3Z 
S 


oO 
3 
n= 


siousmuesadezessescesseess 
gpaspespeenss 
seciieeces 


POPOPIPONINININOR 2 2 tO 


con 


BRAS SatinieeNaEy 
ak 


Baume: Hate 


ee ee eee ee ce ee ee a ee ee ae ce ee ee ed ed ed ed ed ed eed wed ed 


YYEUwUssSsesser 


7 (EACH BIT IS CALLED BY BIT NUMBER) 
;CONTROL AND STATUS REGISTER 2 (RMCS2) 


US] =1 sUNIT SELECT (BIT #0) 

US2 =2 sUNIT SELECT (BIT #1) 

US4 = 4 sUNIT SELECT (BIT #2) 

BAI = 10 3BUS ADDRESS peteanad INHIBIT (BIT #3) 
CLR = 40 sCLEAR (BIT #5) 

IR = 100 sINPUT READY (BIT #6) 

OR = 200 sOUTPUT READY (BIT #7) 

MPE = 400 3MASS BUS PARITY ERROR (BIT #8) 
MXF = 1000 sMISSED TRANSFER ERROR (BIT #9) 
PGE = 2000 sPROGRAM ERROR (BIT 

NEM = 4000 3NON EXISTENT MEMORY (BIT #11) 
NED = 10000 3NON EXISTENT DRIVE (BIT #12) 
UPE = 20000 ZUNIBUS PARITY ERROR (BIT #13) 
WCE = 40000 sWRITE CHECK ERROR (BIT #14) 
DLT = 100000 3DATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RMDB) 
3(EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM80 REGISTERS 
3CONTROL AND STATUS 1 REGISTER. (#00) 


GO =1 360 BIT (BIT #0) 

F1 =2 sFUNCTION CODE BIT #1 

F =4 FUNCTION CODE BIT # 

F = 18 sFUNCTION CODE BIT #4 

F4 =2 sFUNCTION CODE BIT #4 

FS = 40 sFUNCTION CODE BIT #5 

DVA = 4000 sDEVICE AVAILABLE (BIT #11) 

DRIVE STATUS REGISTER (RMDS) (#01) 

OM =1 OFFSET MOD 

vv = 100 ;VOLUME VALID (BIT #6) 

DRY = 200 DRIVE READY (BIT #7) 

DPR = 400 sDRIVE PRESENT (BIT #6) 

PGM = 1 3PROGRAMABL Iv 49 

LST = ; LAST SECTOR TRANSFERRED (BIT #10) 
WRL = sWRITE LOCK (BIT #11) 

MOL s 1 MEDIUM ON-LINE (BIT #12) 

PIP = ZPOSITIONING OPERATION in PROGRESS (BIT #13) 
ERR = 3 SITE ERROR (BIT #14) 


COMPO 
ATA =1 ZATTENTION ACTIVE (BIT #15) 


ILF = ZILLEGAL FUNCTION (BIT #0) 

ILR = sILLE REGISTER (BIT #1) 

RMR = ZREGISTER MODIFICATION REFUSED (BIT #2) 

PAR =1 sPARITY ERROR (BIT #3) . 
FER = ; ZFORMAT ERROR (BIT #4) 

weF = 3WRITE CLOCK FAIL (BIT #5) 





oO 
~ 


N 2 
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REGISTERS 
157 108 ECH = 100 sECC HARD ERROR (BIT #6) 
158 2 H = 20 SHEADER COMPARE ERROR (BIT #7) 
159 00 HCRC = + sHEADER CRC ERROR (BIT #8) 
160 1000 AO = 1 sADDRESS OVERFLOW ERROR (BI ) 
19) BR e008 Ay = £08 A ae vg tA one oT #10) 
= 
188 81008 DTE = 19 sDRIVE fa I ERROR (BIT #12) 
184 $e I =2 : OPERATION INC Ay ee (BIT #13) 
165 0000 UNS = 4000 :DRIVE UNSAFE ( 14) 
198 100000 DCK = 100000 DATA CHECK ERROR (BIT 15) 
198 sMAINTAINABILITY REGISTER #01 (RMMR1)(403) = READ ONLY BITS 
170 000001 DMD =1 sDIAGNOSTIC MODE 
171 000002 LSIT =2 
175 000010 wD = 48 
176 000020 EECC = 2 
177 040 we = $80 
178 100 CONT = 1 
130 200 = $0 
180 0004 PDA =4 
181 dh ai ECRC =1 
182 rai PLFS = 200 
183 ESRC = 4 
88 39000 FB == 20000 
= 
34 950009 occ = 100000 
a ZMAINTAINABILITY REGISTER #01 (RMMR1) (#03) = WRITE ONLY BITS 
138 DMD = sDIAGNOSTIC MODE BIT 
194 MSC = 
195 MI = 
196 MwP s 
197 DTG = 
198 MS = 
199 MDF = 
MSER = 
1 moc = 
MUR = 
MRD = 
MCLK = 
MSEN = 
DTO = 
OBEN = 
OBCK = 1 





10 ZATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 

ie aT = sDEVICE Q (BIT #0) 
1 AT s 3DEV (BIT #1) 
14 aT s 3DEV (BIT #2) 
15 AT s 3DEV (BIT #3) 
1g AT = ;DEV (BIT #4) 
Aes DEVICE @ (BIT #6) 

s « 
19 aT 2 | ‘DEVICE ? (BIT #2) 


Se 










8 3 
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RM8O REGISTERS 
2 
221 sDESIRED SECTOR/TRACK ADDRESS ReSiSTen (RMDA) (405) 
ss¢ : (EACH BIT IS CALLED BY BIT NUMBER) 
$se sDRIVE TYPE REGISTER (RMDT) (#06) 


226 000001 DTOO =1 sDRIVE TYPE NUMBER BIT 1 

34 000002 DT01 =2 DRIVE TYPE NUMBER BIT ¢ 

228 000004 pre = 4 sDRIVE TYPE R BIT 

229 000010 DTO = 10 sDRIVE TYPE NUMBER BIT 4 

rd 000020 DT04 = 20 sDRIVE TYPE R BIT 5 

§ 1 000040 DTOS = 40 DRIVE TYPE NUMBER BIT § 

Me 000100 DT06 = 100 sDRIVE TYPE NUMBER BIT 

23 000200 DT07 = 200 sDRIVE TYPE aoe BIT 8 

234 000400 DT08 = 400 sDRIVE TYPE R BIT 

235 004000 DRQ = 4000 sDRIVE R tart olay. (BIT #11) 
236 020000 MOH = 20000 sMOVING HEAD (BIT #13) 

237 040000 TAP = 40000 sTAPE DRIVE (BIT #14) 

4 100000 NBA = 100000 NOT BLOCK ADDRESSED (BIT #15) 
so? ;LOOK-AHEAD REGISTER (RMLA) (#07) 
242 000100 Sco = 100 SECTOR COUNT FIELD 0 (BIT #6) 
243 000200 Sci = 200 SECTOR COUNT FIELD 1 (BIT #7) 
st6 000400 Sc2 = 400 SECTOR COUNT FIELD 2 (BIT #8) 
$34 3RM MAINTAINABILITY REGISTER #2 (RMMR2) (#10) 

$26 3RM ERROR REGISTER #02 (RMMR2) (#10) 

$3¢ sOFFSET REGISTER (RMOF) (#11) 
256 000200 OFD = 200 sOFFSET DIRECTION (BIT #07) 

257 001000 SSEI = 1000- 3 SKIP pH OR INHIBIT (BIT 

258 002000 HCI = 2000 ;HEADER COMPARE INHIBIT (BIT #10) 
259 004000 ECI = 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 
soo 010000 FMT16 == 10000 sFORMAT BIT (BIT #12) 

$06 DESIRED CYLINDER ADDRESS (RMDC) wie 

$e 2 (EACH BIT IS CALLED BY BIT NUMBER) 

265 sCURRENT CYLINDER ADDRESS (RMHR) (413) 

$96 2 (EACH BIT IS, CALLED BY BIT NUMBER) 

Sa sSERIAL NUMBER REGISTER (RMSN) (414) 

sop 3; (EACH IS CALLED BY BIT NUMBER) 

71 7RM ERROR REGISTER #02 (RMER2) (#15) 
278 000018 DPE =1 zDATA PARITY ERROR (BIT t 

eh) 0 SSE = 4 sSKIP SECTOR ERROR ; #5) 

275 i 00 DvCc = § sDEVICE CHECK ¢ 

tA LBC = sLOSS OF BIT CLOC (elT #10) 

? LSC = 4 sLOSS OF SYSTEM Cesk or ai 
78 1 Ivc =1 TNVLA ID ycrtg 2 sn ag A T #12) 
279 be OPE = ¢ OPERATOR P on Celt 1 #13) 
280 SKI = 3 SEEK INCOMPLETE. (eit # 4) 








c 3 

CZRNGAO RM8O FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 4-6 SEG 0028 
RM80 REGISTERS | 

281 100000 BSE = 100000 :BAD SECTOR ERROR (BIT #15) 

see sECC POSITION REGISTER (RMEC1) (#16) 

284 ? (EACH BIT IS CALLED BY BIT NUMBER) 

386 sECC PATTERN REGISTER (RMEC2) (#17) 

87 :(EACH BIT IS CALLED BY BIT NUMBER) 

$85 FERRARA ARRAAERERRRREREERRARAERARERRRARERRARRRRERRRRARERRREREREE 

291 “DRIVER OPERATION CODE DEFINITIONS 

$92 000105 SEEK = 108 

29 000107 RECAL = 107 

294 000111 DRVCLR = 111 

295 000113 RELEASE = 113 

296 000115 OFFSET = 115 

297 000117 TC = 117 

298 000121 READIN = 121 

299 000123 ACK = 123 

300 000131 SEARCH = 131 

301 000151 WRCKD = 151 

302 000153 WRCKHD = 153 

303 000161 ITE = 161 

304 000163 WRTHD = 163 

305 000171 EAD = 171 

306 000173 READHD = 173 

307 000141 GETREG = 141 

308 000143 SETFORM = 143 

309 000145 SELDRV = 145 

31] ZOTHER EQUATES 

318 177400 SCTRWC = -256. ;WORD COUNT FOR SECTOR 


dD 3 
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TRAP CATCHER 
1 -SBTTL TRAP CATCHER 
000000 


=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT’ 
; “SEQUENCE TO CATCH ILLEGAL TRAPS AND INTE 
deemnae CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 
000174 000000 DISPREG:  .WORD zzSOFTWARE DISPLAY REGISTER 
000176 000000 SWREG:  .WORD S:SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 7 
. 000200 000137 003270 JMP @ASTARTI :;JUMP TO STARTING ADDRESS OF PROGRAM 
3 000204 000137 003312 JMP a#START2 :SELECT OPERATING PARAMETERS 
3 000210 000137 003260 JMP a#START3 sSELECT RH/RM ADDRESSES 
4 000214 000137 203302 JMP aA#START4 ;COMBINATION OF 204 AND 210 
9 .SBTTL ACT11 HOOKS 
FRARAAARAAEAARARAARARERERARAEAERERAARRERERERERERERRRRRRRERERRE RE 
*HOOKS REQUIRED BY ACT11 
900220 ssypte. sSAVE PC 
000046 015 6 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 390000 “WORD 20000 32)SET LOC. 332 TO 20000 
- 000220 > =$SVPC t: RESTOR 
11 001100 -=1100 
12 *SBTTL APT PARAMETER BLOCK 
© RRARAAAEARARAEARARRERERARERERAEEAARAAAARERERERARARAERAARARAREREAEEREER 
:SeT LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FRAAAAAAAAAAARARAAAARR RARER ARARAAAAERARAERAERERAERARARREREERES 
001100 »$X2.  ;3SAVE CURRENT LOCATION 
000024 =74 [SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 200 200 23FOR APT ST 
4 =44  3;POINT TO Hai INDIRECT ADDRESS PNTR. 
000044 901100 SAPTHDR ::POINT TO APT HEADER BLOCK 
1100 .=.$X  ::RESET LOCATION COUNTER 
33 Peer Tree rerrrrTyrrrrrrrerr Trt TT TTT TT tii iiitiiiiiiiiiiii i iii ii 
*SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
S INTERFACE SPEC. 
001100 SAPTHD: 
001100 SHIBTS: .WORD 0 3:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
11 1 : WORD IL ADDRESS OF APT MAILBOX (BITS 0-15) 
11 1 STSTM: .WORD 540. 3;RUN TIM OF LONGEST TEST 
1 1 PASTA: “WORD 540. # ::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
111 1 "WORD 540. ::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
00111 “WORD $ETEND-SMAIL/2 ;;:LENGTH MAILBOX-ETABLE (WORDS) 
1114 TAB. XY=. SCOMMON TAG STARTING ADDRESS 





E 
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COMMON TAGS 
0 .SBTTL COMMON TAGS 
5 ERRRRARARAARAREREARARAAEAEARERER RARER ERERRARERRREREERERRERE RENE 
tSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 
001114 »=TAB.XY 
001114 SCMTAG: z3START OF COMMON TAGS 
001114 000000 WORD 
001116 900 TSTNM: .BYTE i CONTAINS THE TEST NUMBER 
00111 SERFLG: .BYTE [CONTAINS ERROR FLAG 
001120 000000 SICNT: .WORD 9 { ECONTAINS SUBTEST ITERATION COUNT 
001122 000000 SLPADR: .WORD S: CONTAINS SCOPE LOOP 
001124 000000 SLPERR: . 0 7: CONTAINS her 
001126 000000 SERTTL: .WORD 0 +: CONTAINS TOTAL ERRORS DETECTED 
001130 000 SITEMB: .BYTE 0 t:CONTAINS ITEM CONTROL 
001131 001 RMAX: .BYTE 1 7: CONTAINS RRORS 
001132 000000 SERRPC: .WORD T: CONTAINS PC OF LAST GRROR INSTRUCTION 
001134 000000 DADR: .WORD *: CONTAINS ADDRESS OF 
001136 000000 DADR: .WORD T: CONTAINS ADDRESS OF BAD" ota 
001140 000 SGDDAT: .WORD 0 33¢ AINS *GOOD* DATA 
001142 $0000 DAT: .WORD 0 SCONTAINS "BAD® DATA 
001144 000000 WORD *TRESERVED--NOT TO BE USED 
001146 000000 WORD 
001150 000 SAUTOB: .BYTE s AUTOMATIC MODE INDICATOR 
001151 000 SINTAG: .BYTE t: INTERRUPT MODE INDICATOR 
001152 “WORD 
001154 000098 SWR: . WORD DSWR ; ZADDRESS OF SuITCH REGISTER 
001156 177570 DISPLAY WORD DDISP T:ADDRESS OF DISPLAY REGISTER 
001160 177560 $TKS: 177 69 S:TTY KBD STATUS 
001162 177562 $TKB: 17756 t:TTY KBD BUFFER 
001164 177564 . STPS: 177564 +: TTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 [: TTY PRINTER BUFFER REG. ADD S 
001170 L: .BYTE [CONTAINS NULL CHARACTER FOR FILLS 
001171 SFILLS: .BYTE S:CONTAINS # OF FILLER CHARACTERS REQUIRED 
001172 SFILLC: .BYTE 12 332NSERT FILL CHARS. AFTER A LINE FEED!’ 
0011 STPFLG: .BYTE ::""TERMINAL AVAILABLE'’ FLAG (B1T<07>=0=VES) 
001174 SREGAD: .WORD SICONTAINS THE ADDRESS FROM 
S:WHICH (SREGO) WAS OBTAINE 
001176 SREGO: .WORD S:CONTAINS (($REGAD) +0) 
001 $REG1: .WORD S:CONTAINS (($REGAD) +2) 
001 SREGE: ; WORD S: CONTAINS (($REGAD) +4) 
001 SREG3: .WORD 7: CONTAI C¢$REGAD) +6) 
001 SREG4: .WORD S:CONTAINS (($REGAD)+ 9) 
121 SREGS: .WORD S: CONTAINS (($REGAD) +12) 
00121 STPO: “WORD S:USER DEFINED 
00121 STN : WORD SUSER DEFINED 
00121 TMP2: WORD SSUSER DEFINED 
st ries: 8 SM PE ON ERROR ADDRESS 
091 377 377 SBELL: ASCI2 <207><377><377> + CODE FOR BELL 
1 SOuE : .ASCII /2/ S:QUESTION MARK 
001 1 CRLF : ASCIL <i <i5> 33 CARRIAGE RE TURN 
1 000 F: CI 12> 33 FEE 
FS ne ee oe pcocccnnnenbbbnesonsnneneansoonsaconooeeness 


*SBTTL APT MAILBOX-ETABLE 


essssssesessses 





CZRNGAO RM80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 6~1 
APT MAILBOX-E TABLE 


SEQ 0031 


© RARER RERARAERAEEERAEAEAAEERAERARERARAERERERRERREREEREREE 


aEVEN 


e%e te te e@ete te tee 
sae ae2ne 22 
“4 
— 
v 
ad 


See<t. 
= 4 
< < 
v v 


$ 


as 
cry 


33APT MAILBOX 

g SRESSAG TYPE CODE 

33PAT AL ERROR NUMBER 
T NUMBER 


33 S 
33PASS COUNT 
33 3:DEVICE COUNT 


NVIRONMENT MODE BI 
STAPT gh REGISTER 
a+: rg SWITCHES 


CPU T YPE OPT OPTIONS 
bits 15-11= 
11/ cst, "11205202, 11/20=03,11/40=04,11/45=05 
/70=06,PDQ=07 ,0=10 


11/ d= 
1O=REAL_TIME CL 
9=FLOATING POINT sqeCe seen 
=MEMORY MANAGEMENT 


8 
men. IV ADDRESS M.S. BYTE 


hin. et'ovfee — (HIGH BYTE) 
ess in 


DRESS ,BLKA 
LAST ADDR.=3 BYTES THIS WORD AND LOW OF ‘TYPE’ ABOVE 
DRESS,M.S. BYTE 


MEM. BL 
MEM.LAST ADDRESS ,BLK#2 
ADDRESS fps Sere 


AHS Gr 
M.LAST ADDRESS ,BLK#3 
ae wip tig -S.BYTE 


BIT 
BIT 
BIT 

33H 
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-SBTTL USER DEFINED TAGS 





001314 C.SWR: .WORD sCONTROL SWITCHES 
00131 RMAX: WORD 25. R OF ERRORS ALLOWED PER DRIVE 
001 SAVCSW: .WORD ;PREVIOUS CONTENTS OF *C.SWR 
001 CNTRLC: .WORD TROL ‘'C’’ FLAG 
001324 BUSADR: .WORD iGET Ra ADDRESSES | FLAG (O=NO, -1=YES) 
001 LPTAVL: .WORD VAILABLE STATUS (O=NO, 1=YES) 
001 DRVSEL: .WORD eR Ives SELECTED ‘on isltsP 
001332 TSTNMS: .WORD 13377,0 [DEFAULT IS RUN TESTS 0-7 & 11,12 & 14 
001 36 OPNFLG: .WORD 9.0 SMODIFY TEST PARAMETER F LAGS 
001 CLKSTA: .WORD CLOCK STATUS (O=NO CLOCK,+1=kW11-P, 
SAND =12KW11-L) 
001 TICKMS: .WORD 16. :16 MILLISECONDS PER CLOCK TICK 
001 TICKUS: .WORD 16666. 716666 MIRCOSECONDS PER CLOCK TICK 
001350 BYPASS: .WORD 
001352 CHKDRV: .WORD :DRIVE UNDER TEST 
001354 DRVMSK: .WORD [DRIVE MASK BI 
001356 SVSTAT: .WORD + STATUS/ERROR INDICATOR 1S 
SSAVED HERE ON AN ERROR 
001 CYL.RD: .WORD 0 SCYLINDE 
001 RK.RD: WORD 3 TRACK 
001 SEC.RD: .WORD SSECTOR READ 
001 CYL.DS: .WORD CYLINDER DESIRED 
001 EC.DS: .WORD SSECTOR DESI RED 
00137 TRK.DS: .WORD i TRACK DESIRE 
v01374 STRK: . WORD :CONTAINS THE East TRACK OF THE UNIT UNDER 
001376 TIM.UP: .WORD :MINIMUM “hie 
001400 WORD [NUMBER OF COUNTS BELOW MIN. LIMIT 
001402 WORD [MAXIMUM TI 
001404 “WORD [NUMBER OF COUNTS ABOVE Jur. LIMIT 
001 ;WORD 0,0 [TOTAL TIME OF ALL SEEK 
00141 WORD NUMBER OF SEEKS bear ORMED 
00141 TIM.DN: .WORD [MINIMUM TIME 
00141 “WORD [NUMBER OF COUNTS BELOW MIN. LIMIT 
0014 WORD SMAXIMUM TIME 
0014 WORD [NUMBER OF COUNTS ABOVE MAX. LIMIT 
001424 <WORD 0,0 [TOTAL TIME OF ALL SEEKS 
14 ; WORD : R OF SEEKS PERFORMED 
14 TIM.PT: .WORD POINTS TO TABLE OF TIMES 
14 WCEFLG: .WORD SFATAL WRITE CHECK ERROR FLAG 
14 STALLO: .WORD [VARIABLE STALL (TEST 
1 SVADR: .WORD 0,0 [SAVE DISK ADDRESS 
1444 SEKTMR: .WORD [SEEK TIMER 
1 SEKCNT: .WORD [SEEK COUNTER 
14 LTA: .WORD S TESTING RANGE FOR. SERVO, SETTLE DOWN TEST 
145 TRCKWC: .WORD -<256.*31. ; COUNT FOR A F K IN 16 BIT MODE 
14 STALL1: .WORD 10. 710 MILLISECONDS STALL test 10) 
14 STALL2: .WORD i] mILLIS CONDS STALL 
1 STALL3: .WORD " 75 SEC STALL 
1 XSTAL : WORD SMAX. INCREMENTING STALL ALLOWED IN TEST 4 
1 ERR.CT: .BYTE 16. SNUMBER OF ERRORS ALLOWED IN TEST 
:BEF ORE GOING TO THE NEXT este 
1465 BYTE TRESERVED 
1466 BASFLG: .WORD [FLAG FOR DETECTING BAD SECTOR 
14 gi [THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
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;THE FOLLOWING 8. be AR 
;MEASUR 


147 000000 SKTIM: et oN os: 
18 $00008 ae: OF 88 
0015 SKSIZ: .WORD 
00151 CYINC: .WORD 
001512 ERRCN: .BLKB 8. 
001522 176700 : .WORD 176700 
001524 000254 000240 RHVEC: .WORD 254.240 
0015 900104 0001 “WORD 04 
001534 1 240 PKCS: .WORD 17254 
001536 17254 . : WORD 17254 
001540 172544 c “WORD 172544 
00154 900100 000102 LKV: .WORD 100,102 
001 177546 LKS: WORD 177546 
001550 177 TPS: . WORD 177564 
001552 177566 TPB: .WORD 177566 
001554 177514 LPS: .WORD 177514 
001556 177516. LPB: .WORD 177516 
BIT TABLE 

001560 BITS:  .WORD. BITOO 
001 “WORD BITO1 
001564 “WORD. BIT 2 
001 “WORD BIT 
0015 “WORD BIT 
00157 “WORD BITOS 
00157 “WORD BIT 

157 “WORD BIT 

1 “WORD BIT 

1 “WORD BIT 

1 “WORD BIT 

1 “WORD BIT 

161 SWORD BIT? 

161 “WORD BIT? 

161 “WORD BIT14 

161 “WORD BIT15 

1 ;WORD BIT 

1 ;WORD BIT 

1 “WORD «BIT 

1 “WORD BIT 

1 “WORD BIT 

| at 

1836 “WORD BIT 





-SBTTL TIMING LIMITS 
Mz TABLE TEST TABLES 


Sie Sst es ge 


3 THE PROGRAM WAS LOADED. THE HI rch CONTAINS THE 
'XXDP" DEVICE CODE FOR THE 


Ane USED IN THE AVERAGE SEEK TIME 
sACCumA Aree seek TIME 


R OF S 
SIZE OF CURRENT SEEK CYCLE 
ZCYLINDER OFFSET VALUE 


zTOTAL ERROR COUNT FOR DRIVES 0-7. 


3RH/RM_UNIBUS ADDRES 
SWECTOR ADDRESS AND PRIORITY 


-P COUNTER 
ky Wil-L vet TOR ADDRESS 
pkW1T=L bb a 


SLINE PRINTER BUFFER 





SEQ 0033 


1 5 
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TIMING LiMITS 
1644 .WORD 1597. :LO LIMIT 
niber 003953 “WORD 1339. SHI LIMIT 
S0H2 TABLE 
oore33 7% 118: - WORD we 
1654 “WORD 97. :LO LIMIT 
thers $ ? ; 1935" ‘HI LIMIT 
SEEK TEST TABLES 
001660 3745 Tie: “WORD  ONECYL FORWARD 
001 7 “WORD REV TREVERSE 
001664 “WORD 0 =NO LOWER 
001666 0011 “WORD 600. :HI LIMIT 
001670 0 7520 T13:  .WORD AVERGE FORWARD 
001672 037620 “WORD REV sREVERSE 
1674 900000 WORD 9 [NO LOWER 
1676 “WORD 2500. SHI LIMIT 
001709 037 T14:  .WORD MXSEEK : FORWARD 
001702 N37é - WORD REV REVERSE | 
1706 01161 WORD 8500. SHI LIMIT 
sSPECS. MESSAGE TABLES FOR ROTATIONAL AND 
ROTATIONAL MESSAGE AND LO/HI LIMITS 
901710 04005 SP11A: .WORD Ms 11x 
00171 00507 ‘ 7. 3LO LIMIT 
001714 7 WORD i 27. SHI LIMIT 
SOHZ TABLE 
001716 04005 §P11B: .WORD GUIX 
001 90 ? WORD :LO LIMIT 
001722 “WORD SHI LIMIT 
TIMING TEST MESSAGES AND LO/HI LIMITS 
001786 040131 $Pi2: -WORD AS wes pee 
001 $0990 WORD 800. HI LIMIT 
1 01 SP13 WORD MSG13X 
1 WORD 3NO LOWER 
1 WORD 2500. SHI LIMIT 
1740 35 SP14: .WORD MSG14X 
174 WORD :NO LOWER 
1744 01161 “WORD 5900, SHI LIMIT 


: STATUS/ERROR SASesi« POINTER TABLE 
STATBL: 


17 107 

1 000000 000000 
17 14 

17 11 


yy ET 


7S MIT 


TIMING TESTS 


16.0HS) 


125.0ns) 
450. 0ns) 
OTTER WORD OR eeare DRIVE REQUESTED 


T Reout ON THIS DRIVE 
TIMEOUT ON ANOTHER DRIVE 


SEQ 0034 


J 3 
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TIMING LIMITS 
-WORD MSGB sERAOR pata d DURING ee OPERATION 
-WORD MSG s ERROR One URRED DURING NON-1/0 OPERATION 
«WORD MSGB04 sUNSAFE OCCURRED 
-WORD 0 a iiten 8 WORD 
«WORD nseage DRIVE HAS NOT RESPONDED TO ald REQUEST 
apirrt 1208 -WORD MSGB sDRIVE HAS BECOME NONEXISTENT 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION I NDE 


S OBTAINED BY USING THE I FOUND IN 
7 *LOCATION SiTeRS. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 





**NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SE 
s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM s:POINTS TO THE ERROR MESSAGE 
3* OH s:POINTS TO THE DATA HEADER 
7* DT :;POINTS TO THE DATA 
3* DF ::POINTS TO THE DATA FORMAT 

‘ 002000 SERRTB: 

3 s*ERROR 1 

7 3* RH CONTROLLER INTERRUPT OCCURED (RMAS=0) 

8 3* ERR PC RMAS 

10 3* SERRPC $REG3 

11 00008 040311 EM1 

\¢ 002002 041503 DH1 

1 oosobe oh 1591 5T1 

i 002006 043364 DF1 

1$ s*ERROR 2 

18 3* UNEXPECTED ATTENTION OCCURRED 

19 3* ERR PC DRIVE RMAS RMD RMER1 RMMR2 PMER2 

1 3* SERRPC $REG1 S$REG3 RMERRS RMERRS*+2 RMERRS*+4 RMERRS*+4 

& 90c018 060365 E 

: Sante Beles 

$¢ fos016 048570 BF 

$$ s*ERROR 3 -- NOT USED 


2 000000 
1 993088 99000 


z*ERROR 4 == NOT USED 


' t 

A AAAS 

sate 

nO 

s*ERROR 5 


43 ¢ ADDRESS PLUG CHANGE BIT ser ee ene pity: 
45 8 ARPE SREGH SREG3 RMERRS RMERRS*2 RMERRS*4 RMERRS*+6 





, on ¥ on ¥ 
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ERROR POINTER TABLE 


. r 
i ease sien " 
i ae 3 
§ s*ERROR 6 == NOT USED 


gees 
Coe 


1m : 


8 
+4 z*ERROR 7 == NOT USED 
61 itt 000000 
$6 00 000000 
63 002064 000000 
4 002066 000000 
68 s*ERROR 10 
68 3* FH CONTROLLER FAILED TO RESPOND TO ADDRESSING 
69 3* RMCS1 RR PC 
se RH.ADR RRPC 
Ms 002070 040455 EM! 
002072 041605 DH} 
74 002074 Be erae dT1 
3 002076 043404 DF1 
58 s*ERROR 11 
79 :* DRIVE SELECTED IS NOT ONLINE 
:* DRIV ERR PC 
1 7* SERRPC 
21 0533 EM11 
Beis sibs at 
106 16 DF11 
*ERROR 12 


* IMPROPER HEADER DATA 

* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
® STMPO penne SREGO CHKDRV CYL.DS_ TRK.DS set. DS 
;* GDCYL GDTRK  GDSCTR BDCYL TRK SCTR 

* CYL.DS TRK.DS SEC.DS CYL.RD TRK.RD SEC.RD 

* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


BH Et i 


-—o 


RISSSLESRACLSSELEAL 


od 


ae 


“ 3 
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ROR POINTER TABLE 
103 
104 3* DATA COMPARE FAILURE 
105 3* TEST RR PC TST PC DRIVE CYLNDR TRACK SECTOR 
18 3* STMPO ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC.DS 
10 3* GDDAT BDDAT WRDCNT GDADR BDADR 
108 3* SGDDAT S$B8DDAT $REG4 $GDADR SBDADR 
44 3* CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 
111 002120 ep dk EM13 
\i¢ 002122 04164 DH1 
113 002124 043060 DT1 
"3 002126 043424 DF1 
116 ERROR 14 == FOLLOWS #13 
8 3* SGDDAT S$BDDAT S$REG4 S$GDADR S$B8DADR 
120 002150 000000 
152 Opo1ze o4s076 OT13A 
is 002136 pease DF14 
: $2 s*ERROR 15 
127 3* DATA COMPARE FAILURE 
28 3* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
3* STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
* GDDAT BDDAT WRDCNT GDADR B8DADR 
7* SGDDAT S$BDDAT S$REG4 $GDADR SBDADR 
3* CYLNDR, TRACK, SECTOR, AND WROCNT ARE DECIMAL 
002140 0615 —EM13 
002142 1643 DH1 
002144 ey pT1 
146 3424 DF1 


Z*ERROR 16 == FOLLOWS #15 
z* SGDDAT SBDDAT S$REG4 S$GDADR SBDADR 


Ssh 
REVS 
Fo 


DT13A 
DF14 
s*ERROR 17 
DISK ERROR IN TIMING TEST 


3* 
7* TEST RR PC DRIVE RMCS1_ RMDS RMER1 RMMR2 RMER2 
:* STMPO RRPC CHKDRV RM.REG RM.REG+12 RM.REG*14 RM.REG*+40 RM.REG*42 


SONVRURGNOCRNOUE UNOS 


UNUS 


ed ed ed ed ed ed etd ed 

GEG 

REN 
FFRS 
RRR 
Fi8s 

-_ 

oonrnN 
SSE 
—— aS 
~~ 


Se 
3 
3 





ae 
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ERROR POINTER TABLE 


a 
gi > 


sn Sst F- 


160 
161 3* SL OGK ag he. OVERFLOW alk f ta aad 
16¢ 3* TEST ERR PC IVE RMER1 RMMR2 RMER2 
197 3 STMPO SERRPC CHKDRV RAC REG he MOREG#12 RM.REG+14 RM.REG+40 RRA REG+G2 
165 00 170 040674 EM2 
198 002172 042057 DH1 
167 002174 8? 110 DT17 
138 002176 40 DF17 
10 s*ERROR 21 
We 3* DATA COMPARE FAILURE 
17 3* TEST RR PC TST PC DRIVE CYLNDR TRACK 
174 3* STMPO ERRPC $REGO CHKDRV CYL.DS TRK.DS 
175 3* GDDAT BDDAT WRDCNT SECTOR 
176 3* EG] S$B8DDAT S$REG4 S$REG!1 
ive :* CYLINDR, TRACK, WRDCNT, AND SECTOR ARE DECIMAL 
179 15 A 
180 002202 154 DH 
181 83 04 130 DT21 
ie 06 44 DF 21 
13 s*ERROR 22--FOLLOWS #21 
136 3* SREG1] SBDDAT S$REG4 SREG!1 
18 201 
189 Seth : 
190 14 144 DT21A 
191 16 54 DF 22 
136 
1? 7*ERROR 23 
195 3* DISK ERROR DURING SEEK 
Bh 3* TEST RR PC DRIVE CYLNDR RMCS1 RMCS2 RMDS 
19 3* STMPO RRPC CHKDRV CYL.DS RM.REG RM.REG+10 RM.REG*12 
198 3* RMER1 RMMR RMER RMDC RMHR 
1G? 3* RM.REG+14 RM.REG*+40 RM.REG*42 RM.REG*+34 RM.REG*36 
1 


NOT i ie a DRIVE ve RA REG tts2 10 RAREG#12 


nnens RMD RMHR 
at RAR G*40 RM.REG*42 RM.REG*34 RM.REG+36 


SEQ 0039 


me 
zm 


:* RH/RM ~— (MESSAGE) 
hed TEST ERR PC TST PC DRIVE 
7* STMPO SERRPC SREGO CHKDRV 


B 4 
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POINTER TABLE 
4 002236 043460 DF 23 
9 “gre I eaeneminccenennisotsonnapinentaate 
3* T USED 
1 3* ERRORS 41-46 WILL HAVE AN EM THAT 
g 3* VARIES DEPENDING ON THE ERROR, IT WILL BE IN THE FORM: 
4 3* RH/RM ERROR (MESSAGE) 
25 3* WHERE MESSAGE WILL “be ONE OR MORE OF THE FOLLOWING: 
26 3# }} OFFLINE DRIVE REQUESTED 
27 3* 3) SOFTWARE TIMEOUT ON THIS 
28 i* 4) FT IMEOUT ON ANOTHER DRIVE 
29 3* 5) ERROR OCCURRED DURING I/0 OPERATION 
30 3* $ ERROR OCCURRED DURING NON-1/0 OPERATION 
31 3* UNSAFE OCCURED 
38 PPEIIiiiiititiiitiitiigiiiiiiiiiiiiiiiiiiiiiiii iii) 
$e 002240 ITEM41 
36 s*ERROR 41 
37 
9 
41 


s*ERROR 42 
RH/RM — (MESSAGE) 


® 
7* TEST RPC TST PC DRIVE RMCS1_ RMCS2  RMDS 
se STMPO EARP SREGO CHKDRV RM.REG RM.REG+10 RM.REG+12 


s*ERROR 43 

RH/RM ERROR (MESSAGE) 

TEST a PC TST PC DRIVE RMCS1 RMCS2 RMDS 
SFRPO RRPC SR GO CHKDRV RM.REG RM.REG*10 RM.REG+12 


RMER1 RMMR 
RM.REG+14 RM.REG*+40 RM.REG*+42 


s*ERROR 44 
:* RH/RM ERROR (MESSAGE) 
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ERROR POINTER TABLE 





74 s* EST er PC TST PC DRIVE CYLNDR TRACK SECT 

2 zo ERRPC__$REGO peony CYL.DS TRK.DS AF ios 

77 3* RNCREG RM. Aan: +10 RM. -REGeI2 RM.REG+36 RM. REG?SS. RM.REG+06 
278 3* RMER1 

79 7* RM.REG+14 RM. REGS +40 RM.REG+42 

5 3* CYLNDR,TRACK, AND SECTOR ARE DECIMAL 
282 002271 061058 EM41 
283 002272 04164 DH12 
284 ooesre 043256 DT44 
se? 002276 043510 DF44 
oon s*ERROR 45 
289 3* RH/RM ERROR (MESSAGE) 
290 3 TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
291 3* STMPO  S$ERRPC_ $REGO CHKDRV CYL.DS TRK.DS SEC.DS 
292 3* RMCS1 RMCS RMD RMDC RMDA 
293 3* RM.REG wm aerte RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 
294 :* RMER1 RMM RMWC RMBA RMDB 
$32 3* RM.REG+14  RM.REG+40 RM.REG+42  RM.REG+2 RM.REG+4 RM.REG*22 
597 sf CYLNDR,TRACK, AND SECTOR ARE DECIMAL 
298 002300 961078 EM41 
$35 002302 041 DH1 

002304 043316 DT4 

so 002306 043524 DF45 
304 s*ERROR 46 

5 3* FATAL wit CHECK ERROR (MESSAGE) 
306 3* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
307 3* STMPO SERRPC_ $REGO CHKDRV CYL.DS TRK.DS SEC.DS 
308 3* RMCS1 C RMDS RMDA 
309 :* RM.REG RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 
310 3* RMER RMBA RMDB 
311 3* RM.REG+14 RM.REG*+40 _RM.REG+42  RM.REG+2 RM.REG+4 RM.REG*22 
a1¢ :* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
314 002310 O5 1066 EM4 
315 Beals 041 DH1 
316 O06 14 043316 DT4 
317 002316 043524 DF45 


) 
CZRNGAO RM80 FCTNL PT4 MACRO pag ge 15=JAN=82 07:05:59 PAGE 9 SEQ 0042 
TEST PARAMETER POINTERS AND TABLE 


1 .SBTTL TEST PARAMETER POINTERS AND TABLES 
f -COMMON STORAGE FOR TEST PARAMETER 
4 002320 000000 PRM: ~WORD 0 sTHIS WORD TELLS WHICH OF THE 
5 * FOLLOWING PARAME TERS S ARE TO BE USED 
6 002 32 000000 RPT: WORD 0 SREPEAT COUNTS FOR ALL TESTS 
7 002324 000000 FC: . WORD SFIRST CYLINDER 
8 002 26 000000 LC: “WORD 0 SLAST CYLINDER 
9 002330 000000 IC: -WORD 0 i INCREMENT CYLINDER 
10 902332 000000 FT: ;WORD 0 ‘FIRST TRACK 
11 002334 000000 LT: ;WORD 0 LAST TRACK 
12 002356 000000 IT: <WORD 0 s INCREMENT TRACK 
13 002340 000000 FS: <WORD 0 SFIRST SECTOR 
14 002342 000000 LS: ;WORD 0 SLAST SECTOR 
3 002344 000000 PAT: .WORD 0 SPATTERN CODE 
17 002346 000000 NC1 «WORD 0 :NEW CYLINDER ADDRESS 
18 002350 000000 NC2 WORD 0 ‘NEW CYLINDER ADDRESS 
20 > TABLE OF PARAMETER POINTERS 
21 002352 002726 PRMPT: .WORD PRMO 
24 002354 002742 ;WORD PRM1 
002356 002764 “WORD PRMe \ 
002 003002 WORD 
002 903020 “WORD PRM 
002564 0030. “WORD PRMS 
00 003054 “WORD PRM6 
902379 003072 “WORD PRM? 
00237. 3106 ;WORD PRM10 
002374 003124 “WORD  PRM11 
002376 0031 “WORD PRM1 
2400 003146 “WORD PRM1 
002402 003156 “WORD PRM14 
2404 003166 “WORD PRM15 
5 002406 “WORD 0 : TERMINATOR 
27 -TABLE OF PARAMETER UPPER LIMITS 
8 002410 077777 BRALAT: WORD S767. oR. 
002412 001060 WORD ‘ 3° FC 
414 1060 - WORD bad ae 5 ee 
1 00241 1 ;WORD 0. "IC 
4 1 <WORD 13. : FT" 
4 1 <WORD 13, ure 
426 1 <WORD 13, :“IT 
5 0024 “WORD ; : 3S" 
4 ~ WORD LS 
432 1 “WORD 177777 Pat’ 
-TABLE OF MESSAGE POINTERS 
40 0024 71 PRMMSG: .WORD G. 
41 0024 71 “WORD MSG.FC 
4¢ 4 71 <WORD MSG.LC 
4 64 7 “WORD MSG.1IC 
~ bb 7 WORD G.FT 
45 44 7 6 .WORD mSG.LT 
i$ 45 “WORD MSG.FS 


- 


E 4 
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test PARAMETER POINTERS AND TABLE 
i 002454 036737 «WORD MSG.LS 


zSTATUS/ERROR_ INDICATOR MESSAGES POINTER TABLE 
;DEFAULT VALUES OF TEST PARAMETERS 





0024 227 DFLT: .WORD  227,200., = gRECAL/RANDOM SEEK (TO) 
4 $3 SWORD at hy ae. K i. 0.0.6 /SEEK (T1) 

214 7 “WORD 7,1 +O INcREMEniT cree (T2) 

38 7 WORD 7,16,6 $0,. " 6,0, [STEPPING SEEK (13) 

5 7 WORD 7.1, a vole ! SOSCILLATING SEEK (T4) 
002566 ? WORD g146 +360 vo! 20, ; CONVERGING/DIVERGING SEEK (TS) 
00 ? WORD 7°1 49-280 SSERVO ADDRESSING L Logre NOISE (T6) 
002622 7 WORD 5060. 580° 6° 13. :RANDOM SEEK K TEST (17) 
908 000237 “WORD 237,1,0,560.,1,0,0 TALL SEEKS TEST (110) 
002654 900225 “WORD 223.1, 9.0 SROTATIONAL SPEED TIMING TEST (111) 
00 666 90000 “WORD 7,1,0, ‘ * [ONE CYLINDER SEEK TIMING TEST (T12) 
002676 ? “WORD 7,1,0,155. SAVERAGE SEEK TIMING TEST (113) 
002706 000007 “WORD 7,1,0,560. [MAXIMUM SEEK TIMING TEST (114) 
002716 000007 “WORD 7,1,0,560. TAVG. SEEK TIME MEASUREMENT TEST (115) 


3PARAMETER TABLES 
; RECAL/RANDOM segy (10) 


002 900227 PRMO: WORD 
002730 000310 ;WORD 200. 
0027 . WORD 

7 ;WORD 560. 
0027 . WORD 
002740 WORD 


sSEEK/SEEK (T1) 
PRM1:  .WORD 677 


i i 


RARER RN 

5555555! 

ooooeeye 
> 


—_ 
S 
* 


Sssssss 


RRR 


ss 


SRSLLVSLSSSVSRKVVLS YAVSARANVSSELSFLARISSSNSALUNASS 
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EST PARAMETER POINTERS AND TABL 





105 003016 000000 
ti; 
10 
rf a 
110 $6 4 
117 00 
He 8 : 
114 8030 
115 
118 
117 00303 
118 00304 
119 003046 
00 
1 003050 
5 Bs 
5 
003036 a's 344 
on3068 1960 
83 1 
SHS S388 


ess gsssss ssessss 338 
Eaeee RVsrccR RSSARA 

+ + >< 

ne Ee 

= = = 


wd 
Sey 
: 


B85 


at ee 





BRUINS 


SETS SRE LESSENS 


Ssy 


Wines 


Ph 15-JAN=82 07:05:59 PAGE 9-2 


sOSCILLATING SEEK _ 


PRMG 


360. 
1 


8 


; SERVO i ar NOISE GENERATOR (16) 


PRM6:  .WOR 
. WORD 
; WORD 9 
“WORD 560. 
sWORD 1 
ae 
~ WORD 
*RANDOM SEEK TEST (17) 
PRM7: .WORD 67 
-WORD 5000. 
~ WORD 
“WORD 560. 
“WORD 
-WORD 13. 
“ALL SEEKS TEST (110) 
PRM10: .WORD 237 
“WORD 
‘NORD $60. 
WORD 
“WORD 
“WORD 
*ROTATIONAL SPEED TIMING TEST (111) 
PRM11: .WORD 225 "= 
“WORD 
~ WORD 
~ WORD 
.WORD 
“ONE CYLINDER SEEK TIMING TEST (112) 
Bemis Mond > . 
.WORD 


SEQ 0044 









G 
CZRNGAO RM8O FCTNL PT4 MACRO yore ge 15=JAN-82 07:05:59 PAGE 9-3 SEQ 0045 
TEST PARAMETER POINTERS AND TABLE 


Ty on | 


162 003144 001060 .WORD 560. 
164 *AVE RAGE SEEK TIMING TEST (113) 
165 00314 ? PRM13: .WORD 7 
166 00315 1 < WORD 
169 3 3) WORD Q 
168 80 154 2 “WORD 155. 
199 “MAXIMUM SEEK TIMING TEST (114) 
171 00 156 ? PRM14: .WORD 7 
1 Sis Sas) | 
17 8 164 001 WORD So. 
126 sAVE RAGE SEEK TIME MEASUREMENT TEST (115) 
138 96 198 ind Preis “WORD 
179 90 172 “WORD 0 
180 174 001 “WORD 560. 
5 
£33 
481 
486 
‘ 
8 
x 
2 


MMVI 
Suen 
~~ 





a ed ed ad ed dd 
VFUN =O ODIAUEWN—OOCON 
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TER POINTERS AND TABLES 


;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 





76 11600 BADTMO: mov (sp) RO : SAVE PC WHERE THE TIME OUT OCCURED 
2626 CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 
104401 003212 TYPE 5$ t;TYPE ASCIZ STRING 
10 17 BR 4 [GET OVER THE Asclz 
een iiss: ASCIZ oe conmawersel’ BUS TIMEOUT, PC=/ 
50 01004 MOV RO,-(SP) :SETUP FOR TYPING OUT PC 
52 10440 TYPOC 
54 00024 NOP :PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
:T0 STOP ON UNE XPECTE D TIMEOUT. 
003256 000404 BR START SBRANCH T 
.SBTTL START OF PROGRAM 
00 12737 177777 001324 START3: MOV #-1,BUSADR 3GET BUSADR FLAG 
tee ohee0e BR STRTIA 
003270 005037 901324 START1: CLR BUSADR 3CLR BUSADR FLAG 
003274 005037 001322 STRTIA: CLR CNTRLC [NO CONTROL "'C’’ 
00 11 BR START 
003302 012737 177777 001324 START4: MOV a1 BUSADR :SET BUSADR FLAG 
003310 02 BR STRT2A 
003312 005037 001324 START2: CLR BUSADR CLR BUSADR FLAG 
003316 012737 177777 001322 STRT2A: MOV #~1, CNTRLC [SET CONTROL "C’’ FLAG 
52 7 000000 START: INC #0 sTTY LOOP, WAIT FOR INCREMENT 
00 1 BNE 6 ; D 
00 5 RESET SCLEAR THE WORLD 
.SBTTL INITIALIZE THE COMMON TAGS 
[:CLEAR THE COMMON TAGS (SCMTAG) AREA 
1 MOV ASCMTAG,RO z:FIRST LOCATION TO 7e CLEARED 
CLR )¢ S:CLEAR MEMORY LOCATION 
3 CMP #SUR,R6 DONE? 
i300 BNE 3;LOOP BACK if 
2 MOV #STACK, SP t:SETUP THE STACK POINTER 
seINITIALIZE A FEW VECTORS 
003354 012737 MOV OPE ,a#10T C 3 Jor OT VECTOR FOR SCOPE ROUTINE 
12737 MOV #340, a#1OTVEC+ 33LE 
12737 MOV QFENTVEC en Ma RT VECTOR FOR ERROR ROUTINE 
1 MOV 0, a#EATVECs z3LEVEL 
1 MOV ee Ht ast RAP VECTOR FOR TRAP CALLS 
12737 MOV #340, as TRAPVEC? zlEvel 7 
13737 MOV SEND T OP 43 32 S6TUe ND-OF -PROGRAM COUNTER 
1 3600 MOV #1763 » SHINUM IME HE RANDOM NUMBER GENERATOR 
1 i MOV gle *SLONUM ::BOTH HIGH AND LOW WORDS 
CLR TIMES +: INITIALIZE R OF ITERATIONS 
? CLR SOAPE TICLEAR SCAPE ON ERROR ADDRESS 
? 1 mOVe «#1, SERMAX 7 ALLOW RROR PER TEST 
12737 11 MOV 4. .SLPADR IN M1 12E THE LOOP ADDRESS FOR SCOPE 
12737 11 MOV | PERR + eTUP E ERROR ooP ADDRESS 
riSIZE FOR A SWITCH REGISTER. IF NO FOUND OR IT | 


— 
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INITIALIZE THE COMMON TAGS 


3 sEQUAL Ad ” *=1"*, SETUP FOR A SOF TWARE SWITCH REGISTER. 
VEC,=(SP) AVE eRe on vecT 





7% 01374 33 
127 § Ooeese Rov #64$ ekavec T UP ERROR VECTOR 
10737 5 1154 MOV #DSWR, SWR + SETUP FOR A HARDWARE SWICH REGISTER 
14 010737 17757 1156 MOV *Db1SP DISPLAY 7:AND A HARDWARE DISPLAY REGISTER 
00 <2 777 (177777 «=—«175424 CMP #-1,aSUR 7: TRY TO REFERENCE HAR DWARE SWR 
5 1012 BNE as S:BRANCH IF NO TIMEOUT TRAP OCCURRED 
S:AND T HARDUARE SWR IS NOT = =1 
00 532 03 BR 6s$ +:BRANCH IF NO TIMEOUT 
00 38 ss 003542 64S: mov #65$, (SP) 7:SET UP FOR TRAP RETURN 
00 1 176 901154 65$: MOV z:POINT TO SOFTWARE SWR 
10737 174 001156 MOV se iepnee cD DISPLAY 
003556 012637 66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 
562 005037 00124 CLR SPASS z:CLEAR PASS COUNT 
8 005037 Hatt 001255 BITB # #APTSIZE.SENVM ::TEST USER SIZE UNDER APT 
90 574 001403 BEQ 67$ i3YES. USE NON-APT SWITCH 
003576 12737 001256 001154 oe MOV ASSWREG, SUR TINO,USE APT SWITCH REGISTER 
z 00 12737 00317 ETN EQUA RO TEROVEC see TOP FOR UNEXPECTED TIMEOUT 
5 003612 tet Bba 300 ie MOV #PR6, Tenkvecee TLEVEL 6 
7 2ST TYPE PROGRAM NAME 
TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
90 5227 177777 INC a1 s2FIRST TIME? 
4 1 ; BNE ah 33 IF NO 
00 0 é 015366 000042 CMP MSENDAD,@442 = 3 :ACT=11? 
00 427 BEQ 3 SBRANCH IF YES 
00 104401 003644 TYPE 9$ 33 TYPE ASCIZ STRING 
00 000424 BR *:GET OVER THE ASCIZ 
waned -:69$: .ASCIZ <CRLF>@CZRNGAO = RMSO FUNCTIONAL TEST, PT 4@<CRLF> 
SBTTL Ger VALUE FOR SOFTWARE SWITCH REGISTER 
003714 005737 000042 ar szARE WE RUNNING UNDER XXDP/ACT? 
00 1018 BNE 0$ 3 SBRANCH IF YES 
00 123 001254 000001 CMPB SENV.A 33ARE WE RUNNING UNDER APT? 
00 14 BEQ $ SBRANCH IF YES 
00 Z 37 001154 000176 cw SUR .ASUREG {ESOP TWARE SWITCH REG SELECTED? 
7 GTSWR S:GET SOFT-SWR SETTINGS 
7 9004 BR 71$ 
746 1 000001 001150 708: move «#1, SAUTOB :2SET AUTO-MODE INDICATOR 
2 001174 MoV #SREGAD RO sFIRST ADDRESS 
. 1$: CLR (RO)+ SCLEAR VARIABLE STORAGE 
7 ; 001224 CMP #SBELL.RO > DONE? 
78 01 a 1550 0011 ROY TPS. STPS ESETUP IME” STATUS AND BUFFER REG'S 
776 3 7 1338 oO 186 MOV TPB, Hie} [FOR THE TYPE ROUTINE 


7 THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
;PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


004004 005037 001470 CLR XXDP 3CLEAR *XXDP* LOAD DEVICE STORAGE 


SeLERRERSSSS 
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SWITCH REGISTER 
000016 000041 CMPBs#'16,0441 sLOADED FROM AN RM8O ? 
BNE $ 3;8R IF NOT 
900040 901470 MOV a#40,XXDP *GET DEVICE INDICATOR AND NUMBER 
14 cHre 7 oXKDP 18 17 A VALID NUMBER ? 
1479 CLRB ss XXDP [NO, DEFAULT TO DRIVE 0 
sys 2s: TST ante *CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ ; *BR IF NEITHER 
004056 TYPE 3$ t;TYPE ASCIZ STRING 
BR 923 **GET OVER THE ASCIZ 
55738: SASCIZ. <CRLF>/NOT TESTING DRIVE / 
CLR ~(SP) :CLEAR WORD ON 
001470 MOVB = XXDP, (SP) [GET DRIVE ADDRESS 
TYPOS ZTYPE THE ADDRESS 
.BYTE 1 [ONLY 1 CHARACTER 
“BYTE 0 SSUPRESS LEADING ZEROS 
001231 TYPE SCRLF CRLF 
BR is *GET NUMBER OF DRIVES 
177777 3S: INC ari ;FIRST TIME THRU HERE ? 
BNE 4$ NO 
004136 TYPE 75$ +; TYPE ASCIZ STRING 
BR 743 **GET OVER THE ASC1Z 
55258" SASCIZ <CRLF>/TO TEST DRIVE / 
CLR -(SP) sCLEAR WORD ON STACK 
001470 MOVB = XXDP, (SP) [GET DRIVE ADDRESS 
TYPOS [TYPE DRIVE ADDRESS 
.BYTE 1 SONLY 1 C TE 
“BYTE 0 SSUPRESS LEADING ZEROS 
004176 TYPE 76$ t;TYPE ASCIZ STRING 
BR & +:GET OVER THe ASCI2 
jq76s: “ASC12. /, HALT PROGRAM, CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 
JSR PC, S$TKINT ;TURN ON THE TTY KEYBOARD INTERRUPT 
INC a-i [SEE IF FIRST START 
BNE SRTINT 7BR IF NOT 
JSR PC, GETADR 7GET OR CHECK THE RH/RM ADDRESS 
SRTINT: CLRB = ERRCN :CLEAR DRV © ERROR COUNT 
CLRB RRCN+ [CLEAR DRV 1 ERROR COUNT 
CLRB RRCN+ [CLEAR DRV 2 ERROR COUNT 
CLRB RRCN+ CLEAR DRV 3 ERROR c 
CLRB RRCN [CLEAR DRV 4 ERROR COUN 
CLRB RRCN+ [CLEAR DRV 5 ERROR COUNT 
CLRB RRCNSG [CLEAR DRV ERROR COUNT 
CLRB RRCNS SCLEAR DRV 7 ERROR af 
JSR »LP.A [CHECK FOR A LINE PRINTER 
MOV #i,SICNT SSET ITERATION COUNT TO 1 
JSR “GET G0 CHECK FOR CONTROL SWITCHES 
SETVEC: JSR PC,ST.CLK sINITIALL E THE cLoc 
JSR PC-RMINIT iC Ck DRIVE STA 
MOV #-1, SAVEFG [SET THE ve R GISTERS FLAG 
CLR PS SENSURE THE PRIORITY 
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SOFTWARE SWITCH REGISTER 
1403 BEQ 1$ :BR IF NO 
: 37 001322 st CNTRLC CONTROL rc" SuITCH SET 2? 
14 005 1$: CLR. RG SDRIVE TABLE POINTER 
Ig 18eeey 8an554 os: TYPE SSCRLE a 
0104 ‘ MOV R4,=(SP) 7:SAVE R4 FOR TYPEOUT 
10440 TYPOS +:G0 TYPE=-OCTAL ASCII 
00 BYTE ; S:TYPE 2 DIGIT( 
: 7: SUPPRESS LEADING ZEROS 
104401 040051 TYPE BLNKS4 :TYPE 4 BLANKS 
440 105764 031242 TSTB BRVSTA(RA) [CHECK DRIVE'S STATUS 
444 100416 BMI $ BR IF UNSAFE 
446 001020 BNE 6s [BR IF ONLINE 
450 105764 031252 TSTB BRVTYPCRA) [SEE IF OFFLINE OR NONEXISTENT 
Stes sss Be i ir omens 
errs 104401 037063 TYPE NOTRM [DRIVE NOT AN RM8O 
004464 000433 11$ SCHECK NEXT DRIVE 
004466 104401 037036 3S: TYPE NOTPRS ;DRIVE NOT PRESENT 
004472 0004 BR 11$ SCHECK NEXT DRIVE 
474 104401 037015 4$: TYPE UNTOF F :DRIVE OFFLINE 
500 000416 BR &s [PRINT DRIVE TYPE 
502 104401 037053 5$: TYPE NOTSAF :DRIVE UNSAFE 
506 000413 BR &s SPRINT DRIVE TYPE 
$10 5737 001470 68: Ist XXDP : LOADED FROM THIS DEVICE ? 
316 1 3706 00147¢ CAP XXOP .Ré : LOADED from THIS DRIVE ? 
3 4 1 £01 037100 TYPE hQDeV [DRIVE IS LOAD DEVICE 
i ne re 
542 012737 3993 004552 MOV senso. 108 SASSUME ADDRESS OF RM8O MESSAGE 
$50 104401 9$: TYPE ;TYPE THE DRIVE TYPE MESSAGE 
552 000000 10$:  .WORD 0 {MESSAGE ADDRESS HERE 
554 005 11$: INC RG ZINCREMENT DRIVE NUMBER/TABLE POINTER 
228 13 4 enetes ENE 5M. : 1eMeor 
564 01 001231 TYPE  ,SCRLF CRLF 
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.SBTTL GET UNIT STATUS 
004737 02314 SRTDRV: JSR PC, CNTCLR 360 CLEAR MASSBUS CONTROLLER 
5737 00132 TST NTRLC SCONTROL ''C'’ START/RESTART? 
1427 BEQ SNO=-BRANCH 
13746 001320 MOV SAVCSW.-(SP)  :GET THE PREVIOUS 'C.SWR’ CONTENTS 
716 001314 ADD a 3SET UP TO SEE IF “BiT00° 1S DIFFERENT 
7 BIT 1706, (SP)* 31S *BITOO’ DIFFERENT 
0014 BEQ :BR IF NOT 
0157 901314 001320 MOV C. SUR SAVCSu *STORE PRESENT MF Sune VALUE 
737 023516 JSR LODFL SRESET DEFAULT P, 
004737 7106 1$: JSR pe - PRN [GET PARAMETERS 
0057 7 0013 st TSTNMS ANY TEST SELECTED THIS CYCLE? 
ibe 7 001334 TST TSTNMS+2 TANY TEST SELECTED THIS CYCLE ? 
001031 BNE 6$ :BR IF YES 
104401 037375 TYPE NOTEST [TYPE "NO TESTS SPECIFIED" 
000765 BR is 
004737 023516 2s: JSR PC,LODFLT ;SETUP DEFAULT PARAMETERS 
005037 0013 CLR DRVSEL 3NO DRIVES SELECTED 
005000 CLR RO “DETERMINE THE DRIVES THAT 
012701 000001 MOV #1,R1 SARE AVAILABLE FOR TESTING 
105760 031242 38: TSTB  DRVSTACRO) 31S DRIVE ON-LINE ? 
005411 BLE 5% ‘BR 
5737 001470 TST XXDP SLOADED FROM THIS DEVICE ? 
001403 BEQ 4$ *BR IF NO 
123700 001470 CMPB  —- XXDP, RO ; LOADED FROM THIS DRIVE ? 
90140 BEQ 55 <BR IF YES 
1 031356 001330 4$: BISB ATABIT(RO) DRVSEL “YES, SELECT DRIVE FOR TESTING 
005200 5$: INC RO sTRY NEXT 
106301 ASLB RT TANY MORE DRIVES TO CHECK ? 
001361 BNE 3$ [BR IF YES 
104401 037122 $3: TYPE DRIVES ;"DRIVES(S) TO BE TESTED’ 
5037 015 CLR NDCT [DETERMINE PASSES TO MAKE AND 
CLR R [THE DRIVES TO BE TESTED 
15701 001330 ROY DRVSEL RI zANY DRIVES, SELECTED? 
1 037153 TYPE NONE :* ; 
1 1 1231 TYPE S$CALF CRLF 
57 2 TST 42 SANY MONITOR PRESENT ? 
1 BNE :BR IF YES 
137 003312 JMP START2 RETURN TO °*C° INPUT 
8$: DEC RO TAESe TWO 7}o0rs ARE ADDED TO 
i BNE 72 SWAIT FOR 
1 BNE 
13 015356 JMP See r42 ;RETURN CONTROL TO MONITOR 
o1 9$: ASR a :REPORT THE DRIVES TO BE TESTED 
}} 015322 INC NDCT 61VE TH s. DRIVE A PASS 
1 MOV RO,-(SP) SAV ERO OUT 
ore TYPO. 7:60 T <~OETAL ASCII 
1 .BYTE 1 a te T Dieite ) 


a0 


CZRNGAO_RM80 wee PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 11-1 


GET UNIT STAT 
7 
3 8 
65 0030 
66 00504 
4 00504 
+4 005044 
005050 
71 00505 
Le: 005 
73 005 
74 005072 
75 005074 
76 005100 


5 

3 

2787 017000 001332 
| 037166 


5701 
ih 1 037160 
5 4! 10$: 


104401 1231 118: 
018737 013834 015314 


128: 


-BYTE 
T 


SCRLF 
$ENDCT ,SEOPCT 
; KSTA 
#17000, TSTNMS 
12$ 


NOCLOK 
RSTRT1 


;SUPPRES ‘ EADING ZEROS 
Z HORE, DR IVES? 


{FORM DRIVE NUMBER 
:CR-LF 
1S kwit-p AVAILABLE ? 


:BR 
Zan TIRING TESTS TO BE PERFORMED ? 
;TYPE NO KW11=P CLOCK MESSAGE 


SEQ 0051 
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PROGRAM RESTARTS HERE 
1 .SBTTL PROGRAM RESTARTS HERE 
$ .ENABL LSB 
5 0051 005737 001330 RSTART: TST DRVSEL ZANY DRIVES SELECTED ? 
g 0051 108 BNE BR IF 
00511 005 000042 TST ans2 SANY MONITOR PRESENT ? 
8 005114 1608 BEQ 3BR IF 
9 005116 000137 015356 JMP $GET42 SRETURN CONTROL TO MONITOR 
10 0051 104601 037351 1$: TYPE NODRVS STYPE 'NO DRIVES T 
i 005126 000137 003312 JMP START2 ‘NO==GET DRIVE ENTRY & RESTART AT BEGINNING 
ig 005132 005037 001352 RSTRT1: CLR CHKDRV :START WITH DRIVE 0 AGAIN 
14 0051 12737 1 001354 MOV #1, DRVMSK 
15 005144 033737 001354 001330 2S: BIT DRVMSK,DRVSEL 1S THIS DRIVE SELECTED? 
16 005192 1 BNE 4$ SYES=--GO CHECK IF DRIVE IS READY FOR TESTING 
17 0051 5 001352 38: INC CHKDRV [MOVE TO NEXT DRIVE NUMBER 
18 005160 106337 001354 ASLB = DRVMSK [DONE TESTING ALL DRIVES ? 
19 005164 10 762 BCS RSTRT1 <BR IF Y 
005166 2s [NO==CHECK DRIVE SELECT 
g 005170 135 4$: MOV CHKDRV R2 :PICKUP THE DRIVE NUMBER 
5174 124 TSTB BRVSTAGR ) 11S DESIRED DRIVE ON-LINE? 
¢ bos ert prensa 
001354 001330 BIC DRVMSKDRVSEL ;DESELECT DRIVE FROM TEST 
1 15314 DEC SEOPCT SADJUST "EOP" COUNT 
8 00521 BR RSTART ; 
02314 5$: JSR eC. CNTCLR :60 CLEAR MASSBUS CONTROLLER 
1 005 tees | CLR TENSURE THE PRIORITY 
MOV R DPB.A tSET THE DRIVE NUMBER INTO THE DPB'S 
MOV R2.DPB.8 
5 MOV R2,DPB.C 
5 5 MOV R2.DTADPB 
403 JSR PC.LDCMD LOAD COMMAND INTO DPB.B AND DPB.C 
514 1 50 MOV #30 BYPASS SIF ERROR GO TO END 
it 0 move off PB.AS zAS 16 BIT FORMAT 
00 4 er weit CSUR 16 "GIT FonmaT REQUESTED ? 
41 00 50 CLRB Atl [CLEAR THE °FMT16° BIT 
4¢ D0 143 036510 6$: MOVB &#SETFORM,DPB.A+2 sSET THE FORMAT BIT PER DPB.A+1 
43 00 07 JSR CALL.A 360 EXECUTE THE COMMAND 
46 008 97 036510 Move 6 #PECAL,DPB.At2 RECAL=C 
de 00 igst 4SR RO CALLA ie EXECUTE THE COMMAND 
47 0 TY’ *MSDRIV STYPE *DRIVE® 
48 00 MOV A2,-(SP) : T 
TY ; =-OCTAL ASCII 
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CZRNGAO RMBO F 
PROGRAM RESTAR 
5 7 zs INTO R2 
36 003374 
3 Boke 
53 0984 
$f bose 
6¢ 00541 :MAKE IT ASCII 
63 005414 SSAVE IT 
64 00541 
$ ie 4 4 5 DEC a ALL DIGITS TYPED? 
67 005426 pOa see BGT [NO == BRANCH 
68 0054 104401 001231 TYPE SCRLF CRLF 
69 005434 113737 001464 001131 MOVB ERR.CT,SERMAX ;SETUP MAX ERROR COUNT 
71 .DSABL LSB 








SEQ 0053 


5 
Z 
= 


5. 
Mm 
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001560 001332 


005704 


sn 


001116 


001124 
\¢ 0 
1131 
1240 


SEQ 0054 


TE ee IMtABLES USED 
TRIN T HE DESCRIPTIONS UF THE BELOW TESTS THE VARIABLES USED 
3 SAND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


{sNNEMONIC VALUE VARIABLE 

te 

*R 1 ITERATIONS (REPEATS) 
eFC 0 FIRST CYLINDER ADDRESS 
7*LC 560. LAST CYLINDER ADDRESS 
:eIC 1 INCREMENT VALUE 

*NC OF NC1 FC+IC NEW. OR MODIFIED CYLINDER 
s*NC2 LC-IC NEW OR MODIFIED CYLINDER 
i ADDRESS 

:eFT 0 FIRST TRACK ADDRESS 

*LT 13. LAST TRACK yAbpRESS 

:e1T 1 INCREMENT VALUE 

Z4NT FT+IT NEW OR MODIFIED TRACK ADDRESS 
SeFS 0 FIRST SECTOR ADDRESS 
LS 30. LAST SECTOR ADDRESS 


BE AILALAATALAAT ALAA 
-SBTTL SEEK TESTS 


NN UU UCU UUUUU UU 
THE SEEK TESTS ILL BE PER EXCUTED “BY IMPLIED SEEKS. THESE 


is IMPLIED SEEKS WILL PERF ORME ) HEADER AND 
:*DATA’’ COMMANDS TO TRACK ‘FT’ SECTOR ‘FS'' OF THE DESIRED CYLINDER. 
; *THE “WORD COUNT WILL BE SET SUCH THAT ay THE CYLINDER AND 
[*TRACK/SECTOR WORDS OF THE HEADER ARE R 

EAM MUU 


FRARAAAAARAAAARAEAARRERERAEAERAARARARRARARARERRRARRAERERAAEREREEES 

SRTEST 0 RECAL/RANDOM SEEK TEST 

sTHIS | TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE COMMAND 

[®AND THEN SEEK TO A RANDOM CYLINDER BETWEEN ‘FC’ AND "LC". 
;*THE COMPLETION OF BOTH H COMMANDS, STATUS INDICATORS ARE CME CKED 
*TO0 ENSURE THAT NO ERRORS OCCURRED. 


Po eed rer rwerrrvrrrrrrrrerrrerr TTT TTT Tit t Ti iiitititi iii ii iy 


‘ites 
NOP 
BIT BITS+<0#2>, TSTNMS :DO THIS TEST? 
BNE 7BR IF YES 
JMP ist *NO=-JUMP TO TEST1 
MOV #0,STSTNA sSET TEST #0 AND CLEAR (SERFLG) 
JSR *LOAD THE PARMETERS FOR THE TEST 
OV opie SSETUP THE LOOP ON ERROR ADDRESS 


sGET THE ITERATI 
ERRORS ALLOWED FOR TEST 


MOVB oo ett 3MAX 
MOV sfesin" 73SET TEST NUMBER IN APT MAIL BOX 


d 5 
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T RECAL/RANDOM SEEK TEST 
9055 32777 010000 173424 BIT wsul2, aSwR s INHIBIT TYPING TEST NUMBER ? 
0055 1406 BEQ +16 “BR IF YES 
005532 104401 037 65 TYPE MSGTST ‘TYPE ‘TEST’ 
005536 01374 1240 MOV gtSSTST oop) 33 SAVE STESTN FOR TYPEOUT 
005542 10440 TYPOS 360 TYPE=-OCTAL ASCII 
005544 902 BYTE : +o TYPE 2 DIGIT(S) 
005545 “BYTE + SUPPRESS LEADING ZEROS 
46 005546 1127 7 000107 036510 MOVB  #RECAL,DPB.At2 ;RECAL=COMMAND 
47 005554 113737 002540 036540 MOVB «FS, DPB. +10 FS 
48 005562 113737 002332 036541 MOVB = FT. DPB..B+11 FT 
49 005570 013737 00232e6 036542 MOV LC. +12 LC 
70 005576 012737 005702 001350 MOV #EXITO, BYPASS $60 TO EXITO ON ERROR 
005604 012737 005612 001122 —— MOV ATESTO.S$LPADR :SETUP LOOP ADDRESS 
005612 012706 001100 MOV #STACK, SP :SET UP STACK POINTER 
005616 004037 024076 JSR RO,CALL. *GO EXECUTE THE COMMAND 
009628 013737 002324 036542 MOV FC, DPB.B+12 SINITIAL CYLINDER ADDRESS 
005 023737 002324 002326 c FC,LC : CYLINDER LIMITS THE SAME ? 
005636 001417 BEQ ‘BR IF THE 
005640 004737 022502 JSR PC, SRAND *CYCLE THE RANDOM NUMBER GENERATOR 
005644 013746 022600 MOV SHINUM,~(SP) [USE THE HIGH RANDOM NUMBER 
005650 005046 CLR 3UPPER DIVIDEND 
005652 013746 002326 MOV te SP{SP) FORM THE DIVISOR 
005656 005216 INC (SP) ON CREMENT 
005660 163716 002324 SUB FC, (SP) ; SUBTRACT THE LOWER LIMIT 
005664 004737 022604 JSR PC. $DIV VIDE 
005670 062637 036542 ADD (SP)+,DPB.B+12 ODD THE REMAINDER To THE INITIAL CYLINDER 
009674 005726 TST (SP)+ ‘DISCARD THE QUOTENT 
005676 004037 024244 JSR RO,CALL.B 360 EXECUTE THE COMMAND 
am 005702 000004 EXITO: SCOPE *CALL SCOPE ROUTINE 
78 
79 ee ee coer tamee aaemrrr  e T en e  eee 
*TEST 1 SEEK/SEEK TEST 
3*THIS TEST WILL FAUSE THE, DRIVE TO EXECUTE A FORWARD SEEK 
S*CYCLE TO ‘LC, LT". “LS** FOLLOWED BY A REVERSE SEEK CYCLE TO 
seEC, “ET, “ES AT THE FORPLETION OF EACH SEEK, THE PROPER 
S®INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATI 
- ERRERERRRRERERERERERRERERERERARERERRRRERRRERERRERERERERRERRREEE 
005704 i811: 
005704 909240 NOP 
005706 033737 001562 001332 BIT BITS+<1#2>, TSTNMS :DO THIS TEST? 
005714 00100 BNE ves 
005716 000137 006112 JMP ist2 *NO=-JUMP TO TEST2 
005722 012737 900001 001116 MOV #1,STSTNM :SET TEST #1 AND CLEAR (SERFLG) 
005730 004737 0237 JSR PC; LODPRM SLOAD THE PARMETERS FOR THE TEST 
005734 012737 74 001124 MOV #TEST1,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
005742 013737 2 001220 MOV RPT ,STIMES [GET THE ITERATION COUNT 
005750 112737 1 001131 MOVB 425. SERMAX SMAX ERRORS ALLOWED FOR TEST 
a 005756 012737 000001 001240 MOV »STESTN +:SET TEST NUMBER IN APT MAIL BOX 
5764 032777 010000 173162 BIT #SW12,aSWR s INHIBIT TYPING TEST NUMBER ? 


406 E + sBR IF Y 
401 037265 TYPE /MSGTST sTYPE *TEST® 


—E 5 
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1 SEEK/SEEK TEST 
006000 013746 001240 MOV STESTN,-(SP) ; SAVE $TESTN FOR TYPEOUT 
10440 TYPOS 3:60 TYPE=-OCTAL ASCII 
00 BYTE ; S:TYPE 2 DIGIT(S) 
00600 000 BYTE SUPPRESS LEADING ZEROS 
81 006010 005037 001466 CLR BASFLG ZCLEAR BAD SECTOR ENCOUNTER FOR THE DRIVE 
Be 006014 113737 002340 036540 MOVB  FS,DPB.B+10 ZFS 
83 006022 113737 00 4g 03656 MOVB LS, DPB.C+10 iLS 
006030 113737 00 32 036541 VB «FT. DPB.B+11 SFT 
85 006036 113737 002 036563 MOVB LT, DPB. C+11 SLT 
006044 013737 002 34 036542 MOV FC.DPB.B+1¢ SFC 
87 006052 013737 0023 6 0365 MOV LC. DPB.C+1 TLC 
ised 012737 006110 001350 MOV #EXIT1.BYPASS :GO TO EXIT1 ON ERROR 
006066 012737 006074 001122 son MOV ATEST1.$LPADR SETUP LOOP ADDRESS 
93 006074 012706 001100 MOV #STACK,SP sSET THE STACK POINTER 
94 006100 004037 024466 JSR RO, CALL.C [60 EXECUTE THE COMMAND 
95 006104 004037 024244 JSR RO.CALL.B 760 EXECUTE THE C 
%6 006110 000004 EXIT1: SCOPE SCALL SCOPE ROUTINE 
108 
109 3 FRRAAAAARERERARARAREREEEREEERERERRREREREERERRERRARRERRRRRERRRERR 
S*TEST 2 INCREMENT/SEEK TEST 
:*THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
S*CYLINDER ADDRESS FROM "‘FC’’ TO "LC’’ BY THE INCREMENT “‘IC''. 
"WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 
:*" LC’ REVERSE SEEK CYCLES ARE INITIATED; STARTI 
3#AT THE LAST LEGAL "WC" AND DECREMENTING BY “‘IC*" 
SRUNTIL “NC’’ IS LESS THAN FC'’. AT THE COMPLETION OF EACH 
+ ®SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
:*ENSURE PROPER OPERATION. 
© RAAAAERAERARAAAAARAAEERERAERERARARAAAERAEKAEREAREAEERERRAEREAEEEEEERE 
006112 TST2: 
006112 000240 
006114 033737 001564 001332 BIT BITS+<2*2>, TSTNMS DO THIS TEST? 
006122 001002 BNE .+ : ves 
006124 000137 006354 JMP TST3 :NO=-JUMP TO TEST3 
006130 012737 900002 001116 MOV #2,$TSTNM :SET TEST #2 AND CLEAR (SERFLG) 
006136 004737 0237 JSR PC. LODPRM SLOAD THE PARMETERS FOR THE TEST 
006142 012737 006246 1124 MOV ATEST2,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
006150 013737 00232 1220 MOV RPT STIMES [GET THE ITERATION COUNT 
006156 112737 1 001131 MOVB #25 SERMAX [MAX ERRORS ALLOWED FOR TEST 
ts 006164 012737 000002 001240 MOV #2,$TESIN 7:SET TEST NUMBER IN APT MAIL BOX 
006172 032777 010000 172754 BIT #SW12,aSwR :INHIBIT TYPING TEST NUMBER ? 
006200 001406 BEQ +1 3 
006202 104401 037265 TYPE MSGTST STYPE ‘TEST 
006206 015766 1240 MOV $TESTN,-(SP)  ::SAVE STESTN FOR TYPEOUT 
12 10440 TYPOS £:G0 TYPE--OCTAL ASCII 
14 002 BYTE 2 S:TYPE 2 DIGIT(S) 
15 “BYTE +:SUPPRESS LEADING ZEROS 
111 16 012737 24 00112 MOV #1$,SLPADR :SETUP LOOP ADDRESS 
Hs Sie: litte Bae Eee Be eee 
117 ivertd 012737 iat 859380 MOV WEKI TS, BYPASS G0 TO EXIT2 ON ERROR 
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INCREMENT/SEEK TEST 


16 0137 Hey 





sFC 
7SETUP_THE ERROR LOOP ADDRESS 
LOAD THE STACK POINTER 


‘Sov EXECUTE THE COMM'ND 


E TO NEXT CYLINDER 
SOUT OF CYLINDERS? 
;NO=-BRANCH 


3SETUP_THE ERROR LOOP ADDRESS 
[LOAD THE STACK POINTER 
3GO EXECUTE THE COMMAND 


sCALL SCOPE ROUTINE 


Sat” ae oe ae ee 


EvELes ro TO By tle. 0,1, 2 


COMPLETION OF Each 


PROPER INDICATORS ARE EXAMINED TO ENSURE 


© RARARARAAAARARERAERAEEEEAERAAERAERAERAEAERAAERERAAEARAERERRERERERKER 


vie’ THIS TEST? 
7NO=-JUMP TO TEST4 


sSET TEST #3 AND CLEAR (SERFLG) 
3LOAD THE PARMETERS FOR THE TEST 
;SETUP THE LOOP ON ERROR ADDRESS 
7GET THE ITERATION COUNT 
7MAX_ERRORS ALLOWED FOR TEST 
73SET TEST NUMBER IN APT MAIL BOX 


: INHIBIT TYPING TEST NUMBER ? 
*TEST® 


3 TYPE 

ii SAVE STESTN FOR TYPEOUT 
O TYPE--OCTAL ASCII 

SETYPE 2 DIGIT(S) 

33SUPPRESS LEADING ZEROS 


Hs all TEST LOOP ADDRESS 
sFT 
G0 TO BYPASS ON ERROR 


FC 
ZSETUP_THE ERROR LOOP ADDRESS 


TEST2: 
MOV FC. DPB. Bet2 
MOV *SLPERR 
Muy PS TACK. SP 
INCSK: 
JSR RO,CALL.B 
ADD 1C;DPB.a+1 
CMP LC. DPB.B+1 
BGE NCSK : 
MOV LC, DPB.B+12 
MOV . -$LPERR 
MOV #STACK,SP 
DECSK: 
JSR RO,CALL.B 
SUB 1C.DPB.8+1 
CMP FC.DPB.B+ 
BLE DECSK 
EXIT2: SCOPE 
SRTEST 3 STEPPING SEEK T 
seTHIS TEST MILL COMMAND SEEK 
8.1 6 Seinb 64, 128, 256 AND 
: SPROPER OPERATI On. 
1813: 
NOP 
BIT BITS+<3#2>, TSTNMS 
BNE +6 
JMP TST4 
MOV #3,STSTNA 
JSR OPRA 
MOV atest SLPERR 
MOV STIMES 
MOVB mes: SERRA 
MOV $TESTN 
BIT wsul2, aswR 
BEQ e 
TYPE 
V giSStST_ o.) 
TYPOS 
BYTE 2 
“BYTE 
MOV is SLPADR 
1$: MOVB S,bPB.B+10 ; 
MOVB T.DPB.8+11 : 
MOV WESAT “BYPASS 
TEST3 
MOV FC. pPe. Betz 
MOV 
MOV AitACK SP SP 
JSR CALL.B 


3L THE STACK POINTER 
760 EXECUTE THE COMMAND 


SEQ 0057 


PT we | 


-—o 


at bn Be a aA 
SSISSBNSER FU 


171 


aad et ad Aa 
Sxaa 


oY Se — 
SELF BRA 
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STEPPING SEEK 
006534 1 701 a MOV ICR R1 :CYLINDER 1 
006540 01 ae 001124 MOV *SLPERR 3 SETUP THE ERROR LOOP ADDRESS 
906546 107 MOV aStACK. SP THE STACK POINTER 

: 101 1$: MOV R1,DPB.B+12 {DESIRED CYLINDER 
0065 7 e3¢e JSR ROCCALL B :GO EXECUTE THE COMMAND 
006 1 ASL R1 VE TO NEXT CYLINDER 
006 137 002326 CMP R1,LC [DONE ? 
0065 g 003770 BLE 1$ *NO=-LOOP 
006572 000004 EXIT3: SCOPE [CALL SCOPE ROUTINE 

© RRARAAARARERAAAAEAAEAAEREEERERAEAARAAAEAAAAERAAERAERAREREERRERRAREREE 


at HE 


Nox 


75S 


epessessesseeeres £28 


SSNgRRaREESGEN 


OSCILLATING SEEK TEST ' 
CYCLES FROM ‘FC’ TO “NC'! 


: ILL COMMAND SEEK "NC'' AND BACK 
#70 "FC". "NC STARTS AT “FC” AND INCREMENTS BY ‘'IC’* UP TO CYLINDER 
t*"LC", THEN IS DE CREMENTED BY “Ic'’ BACK TO CYLINDER 'FC’’. AT THE 
[COMPLETION OF EVERY SEEK K COMMAND T HE PROPER INDICATORS ARE 

**EXAMINED TO ENSURE PROPER OPERA 
TC paaeanpaegmeenapeena sir arcsccuncnaensov mete sina aie si 

038737 001570 001332 BIT B1IS+<4#2>, TSTNMS id? THIS TEST? 

opOns 007206 JMP ists *NO=-JUMP TO TESTS 

012737 990004 001116 MOV a, STSTNM sSET TEST #4 AND CLEAR (SERFLG) 

004737 0237 JSR LODPR SLOAD THE PARMETERS FOR THE TEST 

012737 006744 001124 MOV OreStG SL PERR [SETUP THE LOOP ON ERROR ADDRESS 

013737 002522 001220 MOV RPT ,STIMES *GET THE ITERATION COUNT 

112737 000031 001131 MOVB #25, SERMAX [MAX ERRORS ALLOWED FOR TEST 

012737 001240 MOV 4,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 

032777 010000 172272 eI wsul2, asuR zINHIBIT TYPING TEST NUMBER ? 

04401 037265 TYPE GTST iTYPE *TEST® 
013746 001240 MOV iserst -(SP) zi SAVE. STESTN FOR TYPEOUT 
4 TYPOS 60 ““OCTAL ASCII 
BYTE 2 +o TYPE " DIGIT 
000 “BYTE +: SUPPRESS CL ADING ZEROS 

012737 v4 1122 MOV #1$,SLPADR i SETUP LOOP ADDRESS 

113737 540 1$: MOVB = FS, DPB.B+10 “FS 

113737 32 036541 MOVB «FT. DP8.B+11 SFT 

12737 001350 MOV KIT4.BYPASS :GO TO EXIT4 ON ERROR 

908 CLR R [CLEAR STALL SWITCH (NO STALL) 

7 0000 001314 BIT #Sw12.C. SUR SSTALL REQUIRED? 

001401 BEQ TEST *NO--BRANCH 
5102 OM SYES=-SET SWITCH 
TESTS: 

13701 002324 SET NC 0 FC 

5037 0014 CLR ef lo = START af ERO iF 0 TALS REQUIRED 
1g 7 754 001124 MOV #.,SLPERR RROR LOOP ADDRESS 
127 11 MOV #STACK. SP SL OAD THE STACK POINTER 
101 54 1$: MOV R1,DPB.B+12 NC 

9 7 02424 JSR RO, CALL.B *GO EXECUTE THE COMMAND 

5 08 TST R SSTALL? 

140 BEQ 2 *NO=-BRANCH 
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TING SEEK TEST 
037 025220 JSR RO, STALL sYES-GO TO STALL ROUTINE 
14 .WORD  STALLO : TIME POINTER 
137 992524 036542 28: MOV FC,DPB.B+12 FC 
9 7 026244 JSR CALL. :G0 EXECUTE THE COMMAND 
5 TST STALL? 
141 BEQ *NO=-BRANCH 
037 025220 JSR RO, STALL tYES=-GO TO STALL ROUTINE 
14 «WORD STALL “TIME POINTER 
14 INC STALLO ; UPDATE f 
7 001462 001436 CMP MXSTAL,STALLO  ;TIME TO B1G? 
347 BGT 1$ : H 
3057 001436 CLR STALLO ;:YES==START OVER AT ZERO 
91 33 3$: ADD IC,R sMOVE TO NEXT CYLINDER 
020137 002326 CMP R1,LC SLAST CYLINDER COMPLETED? 
3740 BLE 1$ ; CH 
gi 701 002326 MOV LC.R1 *SET NC TO LC 
12737 007072 001124 MOV #. ,SLPERR [SETUP THE ERROR LOOP ADDRESS 
01 706 1100 MOV #STACK, SP [LOAD THE STACK POINTER 
010137 036542 4$: MOV ,DPB.B+12 NC 
904037 024244 JSR *CALL. *GO EXECUTE THE COMMAND 
005 08 TST STALL? 
00140 BEQ 5 *NO=-BRANCH 
004037 025220 JSR RO, STALL SYES=-GO TO STALL ROUTINE 
0014 “WORD STALLO [TIME POINTER 
013737 002326 036542 5S: MOV LC, DPB.B+12 LC 
004037 024244 JSR RO,CALL.B [60 EXECUTE THE COMMAND 
005708 TST R2 SSTALL? 
00141 BEQ 6$ ; CH 
004037 025220 JSR RO, STALL SYES=-GO TO STALL ROUTINE 
0014 .WORD STALL “TIME POINTER 
0032 001436 INC STALLO ;UPDATE STALL TIME 
023 , 001462 001436 cmp MXSTAL , STALLO ZTIME TOO BIG? 
005 37 001436 CLR STALLO :YES--SET STALL TIME BACK TO ZERO 
163701 002330 6$: SUB Ri :NEXT CYLINDER 
020137 002324 CMP R1,FC DONE? 
002340 BGE 4$ *NO=-BRANCH 
EXIT4: SCOPE [CALL SCOPE ROUTINE 


FERRARA AAAAAAAAAAAAAAAAAAAEERERERERERAEARRAERREERERERERERERRERERE 
Z*TEST 5 CONVERGING/DIVERGING SEEK TEST 

S*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND 

ESSEEKS FROM NCI. AND UWCZ" C 


*GREATER THAN THE IN AL AND 'WC2"* IS 
LESS THAN THE . AT THE COMPLETION OF 
[*EACH SEEK R INDICATORS ARE EXAMINED TO 
> *ENSURE ER OPERATION. ‘WC1'' NC2°’ DEFAULT TO 
:*"FC’' AND "LC’’ RESPECTIVELY. 
clase cnc eta ihr cme Nach ct 
y oe 
033787 001572 001332 BIT BITS#<5#2>,TSTNAS. id? THIS TEST? 
$b0137 007432 JMP TST6 [NO=-JUMP TO TEST6 


“oO 
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e2e8S S=SS85 
Wst— pa Ae Sg a 
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—~— = 
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010000 171660 


00130 


001574 001332 
007722 
001116 


339 Oo 091280 


“TEST 6 SERVO 
IN THIS TEST A SEEK IS 
3 NC +4 ure ge THEN NC+3 THEN Nes THEN 


BIT 
BNE 
JMP 


8 
SCOPE 
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soeacemiiciie SEEK TEST 


ale 5 001116 
BS wu 
000005 


a5, STSTNA 
riests se tree 


We5; SNA 


esyie. @SwR 


GTST 
gieetsT oo) 


j 


oi, SLPADR 
FS, DPB. otf 


certo BYPASS 
FC.R1 


TYPE--OCTAL 


i fype 2 DIGIT 45) 
33SUPPRESS LEADING ZEROS 


aa LOOP ADDRESS 


3START NC1 AT i 
SSTART NC2 AT 


3222 


a ee (SERFLG) 
ARMETERS FOR THE TEST 
ON COUNT ADDRESS 


3 INHIBIT TYPING TEST NUMBER ? 


IF YES 
STYPE *TEST® 
ii SAVE STESTN FOR TYPEOUT 

ASCII 


sFT 
360 TO EXITS ON ERROR 


3SE TUP_THE ERROR LOOP ADDRESS 
sLOAD THE STACK POINTER 


$60 EXECUTE THE COMMAND 


360 at THE COMMAND 
NEXT 


3NEXT NC2 


3 YES--BRANCH 


3NO--BRANCH 
sCALL SCOPE ROUTINE 


eTEST 6 SERVO ADDRESSING LOGIC NOISE GENERATR 


ADDRESSING LOsis, NOISE 
ONE TOC 


reo 
NC’ THEN. "4 SEEK 


NC+5. 
QUENCE IS REPEATED UNITL 


y' HE ABOVE SE 
ssEXCEED Dep BY ANY OF THE ABOVE V 


OMPLETION OF EACH SEEK C 
TO ENSURE PROPER OPERATI 


$ PROPER INDICATORS ARE EXAMINED 


jaaatneeneaneantennneseeeenenenenanentenanentanenengeentanacens 


BITS+<6*2>, TSTNMS 


ist7 


#6, STSTNA 
PC. LODPR 
aTESTS SL PERR 
PT, STIMES 


#25. , SERMAX 


Now Ne" IS UPDATED 


Women 
VALUES. THE INITIAL VALUE oF *“we’’ 
OMMAND T 


;D0 THIS TEST? 


ves 


3NO=-JUMP TO TEST? 


sSET TEST #6 AND ee (SERFLG) 
;LOAD THE PARMET 


S_FOR THE TEST 
NE RROR 


ADDRESS 


GET THE ITERATION COUNT 


MAX ERRORS ALLOWED FOR TEST 


SEQ 0060 


l= } 
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T6 SERVO ADDRESSING LOGIC NOISE GENERATOR 


000006 001240 
010000 171434 


001360 


012737 
032777 
001406 


#6,S$TESTN 
i o@SuR 


TST 
STESTN =(SP) 


6 


#1$ SLPADR 
FS. DPB 

FT. DPB Be “19 
#EXIT6,.BYPASS 
FC.R1 

LC;R 


#5.R 
#. .SLPERR 
#STACK,SP 


EXIT6 
R1,DPB8.B+12 


EXIT6: 


: STEST 17 OM SEEK T 
seTHIS TEST TEST PER 


oO 


33SET TEST NUMBER IN APT MAIL BOX 
: INHIBIT TYPING TEST NUMBER ? 


3 TYPE T° 

ii SAVE STESTN FOR TYPEOUT 
360 TYPE--OCTAL ASCII 

SITYPE 2 DIGIT(S) 

33SUPPRESS LEADING ZEROS 


a LOOP ADDRESS 


cFT 
G0 TO EXIT6 ON ERROR 
;PICKUP cree 

YLINDER THAT 
LOAD POINTER 
[LAST CYLINDER 
 YES-=BRANC 
60 EXECUTE THE COMMAND 
260 EXECUTE THE COMMAND 
360 XECUTE THE COMMAND 
60 XECUTE THE COMMAND 
60 XECUTE THE COMMAND 
:GO EXECUTE THE COMMAND 


sCALL SCOPE ROUTINE 


© RRAAAAAAAAAAARARARRAEAEEEEEERAAERARERAAERARAERRAEAEARAEREAERARERARREEE 


T 
FORMS RANDOM SEEK K OPERATIONS BETWEEN CYLINDERS ‘FC’ 
AFTER EACH SEEK, THE POSITION OF 

ROM THE CURRENTLY ADDRESSED CYLINDER AND T 


THE DRIVE IS de A ug 


CK 
SO THAT VERIFICATION 
TRACK ADDRESSES ARE INCREMENTED 


pre betas ne Ik 2a Si, 5 Eo Ee 


03787 001576 
800939 010320 


7 
aaa 
12737 010056 


+ 

TST10 

a7, STSTNA 

pC LODPRA SLPERR 


bo774¢ 





BITS+<7*#2>, TSTNAS 


:DO THIS TEST? 
[NO--JUMP TO TEST10 

3SET TEST #7 AND CLEAR. (SERFLG) 
[LOAD THE 


PARMETERS FOR THE TEST 
‘SETUP THE LOOP ON ERROR ADDRESS 





—$- 
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T RANDOM SEEK TEST 
007760 013737 0023 2 1220 MOV RPT, STIMES sGET THE ITERATION COUNT 
007766 112737 1131 MOVB #5. SERMAX *MAX ERRORS ALLOWED FOR TEST 
- 007774 012737 7 001240 MOV #7,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
010002 032777 010000 171144 BIT #SW12,aSWR y INHIBIT TYPING TEST NUMBER ? 
010010 001406 BEQ + <BR IF YES 
010012 104401 937265 TYPE MSGTST :TYPE "TEST® 
010016 01374 1240 MOV $TESTN,-(SP) | :;SAVE S$TESTN FOR TYPEOUT 
010022 10440 TYPOS £:60 TYPE--OCTAL ASCII 
010024 002 BYTE 3 t:TYPE 2 DIGIT(S) 
010025 000 “BYTE SUPPRESS LEADING ZEROS 
318 010026 113737 002332 036541 MOVB = FT, DPB. +11 ;LOAD STARTING TRACK ADDRESS 
319 010034 112737 105 036510 MOVB &#SEEK,DPB.A+2 :SEEK=COMMAND 
324 010042 012737 010316 001350 MOV WEXIT?,BYPASS | :ERROR TERMINATION ADDRESS 
010050 O1e7 7 010056 001122 MOV 17, $LP SSETUP THE LOOP ON TEST ADDRESS 
010056 013704 031366 TEST7: MOV RMADR RG SUNIBUS ADDRESS OF THE RH/RM 
325 bee: 012706 001100 MOV #STACK,SP SSETUP THE STACK POINTE 
336 010066 013737 002324 036542 MOV FC,DPB.B+12 SINITIAL CYLINDER ADDRESS 
367 010074 023737 002324 002326 CMP ° [CYLINDER LIMITS TH 
8 010102 001422 BEQ [BR IF THEY ARE 
339 010104 73? 022502 JSR PC, SRAND *CYCYLE THE RANDOM NUMBER GENERATOR 
330 010110 013746 022600 MOV SHINUM,-(SP) | SUSE THE HIGH RANDOM NUMBER 
331 010114 005046 CLR - SUPPER DIVIDEND 
332 010116 013746 002326 MOV LC,-(SP) [FORM THE DIVISOR 
333 010122 005216 INC (SP) + INCREMENT 
334 010124 165716 002324 S FC, (SP) SSUBTRACT THE LOWER LIMIT 
335 010130 37 022604 JSR PC. $DIV :DIVID 
336 010134 062637 036542 (SP)+,DPB.B+12 :ADD THE REMAINDER TO THE iNITIAL CYLINDER 
337 010140 005726 TST )+ “DISCARD THE QUOTENT 
338 010142 013737 036542 036520 - MOV DPB.B+12,DPB.A+12 :COPY NEW CYLINDER ADDRESS 
010150 012737 010150 001124 MOV #. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
010156 012706 0011 MOV #STACK, SP *LOAD THE STACK POINTER 
340 010162 004037 024076 JSR RO, CALL.A £GO EXECUTE THE C 
341 010166 012737 010166 001124 MOV #. .SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
010174 012706 001100 MOV #STACK,SP *LOAD THE STACK POINTER 
342 010200 113764 036506 000010 MOVB DPB.A, RMCS2(R4) :SELECT THE DRIVE 
010206 016446 000020 MOV RMLA(R4).-(SP) :GET THE LOOK AHEAD REGISTER 
348 010212 006316 ASL ) SALIGN THE SECTOR ADDRESS 
5 010214 006316 ASL (SP) SALIGN THE SECTOR ADDRESS 
6 010216 000316 SWAB —s« (SP?) [PUT ADDRESS IN LOWER BYTE 
7 010220 105766 000001 TSTB =: 1 SP) SIN THE 1ST 20% OF SECTOR ? 
8 0102 4 901491 BEQ : YE 
9 010226 105216 INCB = (SP) * INCREMENT THE SECTOR ADDRESS 
50 0102 105216 2s: INCB ss (SP?) S INCREMENT THE SECTOR ADDRESS 
51 010232 112637 036604 MOVB = (SP)+, DTADPB+10 :LOAD T 
3¢ 9108 13746 002426 MOV PRMLMT+16,-(SP) :PUT LAST SECTOR ADDRESS ON THE STACK 
5 10 42 00521 INC (SP) S INCREMENT IT 
34 010244 1 2657 036604 CHP {SP)+ DTADPB+10 NEW SECTOR ADDRESS TOO LARGE ? 
56 910 52 103403 BLO 3$ [BR IF ADDRESS IS 2 GREATER 
3 010 34 1050 036604 CLRB DTADPB+10 RESET TO SECTOR ADDRESS 0 
59 01026 1 493 000001 036604 3$: MOVB #1,DTADPB+10 RESET ADDRESS TO SECTOR 1 
010270 004037 024244 JSR RO, CALL.B :G0 EXECUTE THE COMMAND 


L 5 
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T RANDOM SEEK TEST 
361 010274 195237 0 036541 INCB DPB. B+11 ZINCREMENT THE TRACK ADDRESS 
: 010 123737 541 002334 CMPB pe .g+11, LT *MAXIMUM ? 
010 101403 BLOS ‘BR IF NOT 
010310 113737 002332 036541 MOVB ey DPB.B+11 SRELOAD STARTING TRACK ADDRESS 
367 010316 EXIT7: SCOPE SCALL SCOPE ROUTINE 
79 
44 ‘ a ms fr a ee 
*TEST 10 ALL SEEKS TEST 
:*THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
3#T0 ALL OTHER CYLINDERS. 
$ SBEGINNING WITH CYLINDER "FC", THE TEST SEEKS TO EACH CYLINDER 
S*BETWEEN 'FC' AND "LC’ FROM CYINDER FC’. THE BEGINNING CYLINDER 
;*ADDRESS 1S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
S®ADDRESS AND ALL CYLINDERS BETWEEN FC’ AND ‘LC’. THE SEQUENCE 
*CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 
“> ami ate te inte seat eta nde dagen. 
010320 £110 
010320 900240 NOP 
010322 033737 001600 001332 BIT BITS+<10*2>, TSTNMS :DO THIS TEST? 
010330 001002 BNE F 
010332 000137 010564 JMP ist11 [NO==JUMP TO TEST11 
010336 012737 000010 001116 MOV #10,STSTNM sSET TEST #10 AND CLEAR (SERFLG) 
010344 004737 023734 JSR PC,LODP ‘LOAD TH HE PARMETERS FOR THE TEST 
010350 012737 010504 001124 MOV OsES TION SLPERR ‘SETUP THE LOOP ON ERROR ADDRESS 
010356 013737 002322 001220 MOV RPT ,S$TIMES [GET THE ITERATION COUNT 
010364 112737 000031 001131 MOVB #25.,SERMAX “MAX ERRORS ALLOWED FOR TEST 
= 010372 012737 000010 001240 MOV #10,$TESTN *;SET TEST NUMBER IN APT MAIL BOX 
010400 032777 010000 170546 3IT #SW12,aSWR zINAIBIT TYPING TEST NUMBER ? 
010406 001406 BEQ 41 
010410 104401 037265 TYPE GTST YPE ‘TEST’ 
010414 013746 001240 MOV giSSTST_ op) :LSAVE $TESTN FOR TYPEOUT 
010420 104403 TYPOS £260 TYPE -OCTAL ASCII 
010422 3 .BYTE 3 Si TYPE 3 D 
010423 000 “BYTE 0 22 NPPRESS. CLAD ING ZEROS 
382 010424 012737 010432 001122 MOV #1$,$LPADR :SETUP THE LOOP ADDRESS 
383 010432 113737 002340 036340 1$: MOVB FS, DPB.B+10 SSECTOR ADDRESS 
384 010440 113737 002340 03656 MOVB  FS.DPB.C+ SSECTOR ADDRESS 
5 010446 113737 002332 036541 MOVB FT .DPB.B+11 STRACK ADDRE 
010454 113737 002332 036563 MOVB «FT. DPB.C+11 STRACK ADDRESS 
7 010462 013737 002324 036542 MOV FC.DPB.B+1 SSTARTING CYLINDER ADDRESS 
388 010470 013737 002324 056564 MOV FC DPB. Ce C+1 : STARTING CYLINDER ADDRESS 
92 010476 012737 010562 001350 cams MOV #EXIT10,BYPASS :TEST ABORT EXIT 
393 910504 012706 001100 _ MOV WSTACK,SP :SETUP THE STACK POINTER 
010510 004037 024466 JSR RO, CALL.C :GO EXECUTE THE COMMAND 
395 010514 004037 024244 JSR RO.CALL.3 [GO EXECUTE THE COMMAND 
96 010520 337 g 30 036564 ADD 1C.DPB.C+12 S INCREMENT THE ENDING CYLINDER ADDRESS 
44 010526 z f 26 036564 CMP L¢.DPB.C+1 : CHECK IF EXCEEDING MAXIMUM 
99 010536 01 73 4 MOV FC,DPB.C+1 *RESET ENDING CYLINDER ADDRESS 
400 010544 063737 003336 $36265 ADD epee 8415 S INCREMENT THE STARTING ADDRESS 


4-0 


n 5 os 
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0 ALL SEEK 


401 10936 peter 002326 036542 CMP LC,DPB.B+12 sEXCEEDING MAXIMUM ? 
402 01056 353 BGE 1$ 3BR IF NOT 
403 010562 000004 EXIT10: SCOPE sCALL SCOPE ROUTINE 


am 


n 5 
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1 .SBTTL TIMING TESTS 
§ PEARL AREAL EGA REAR 
4 [*THE TIMING TEST 3 WILL ENSURE THAT THOSE FUNCTIONS BEING 
5 S*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE ‘RM8O 
6 [ENGINEERING SPECIFICATIONS’. 
7 :*THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 
8 RATIONS. AT THE COMPLETION OF EACH OF THE TIMING 
2 isTESTS: THe MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 
4 SSAIITITALTTTTTATAAATAAAA AAT 
$$ es *REAAAAAAAAAAAAAEAARAAEREAEAARAAAAERAEREAAKAARAAARAAAREARAAREEEEEEEE 
*TEST 11 ROTATIONAL SPEED TIMING TEST 
:*THIS TEST WILL START A SEARCH TO CYLINDER "FC", TRACK ‘FT’, 
TOR *FS'. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT 
te18 SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 
:*IS REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED 
: #AND CHECKED, T To ENSUR IT I$ WITHIN TOLERANCE: 
7* LOL (16.67MS = 4.3%) = 13. 97MS @ 50/60 HZ. 
3 Hil LIMIT Cs. Cons + 3.5%) = 17.27MS @ 50/60 H 
OO BE LIL hn OR BU the Rs hs. SO 
010564 +8111: 
010564 000240 
010566 033737 001602 001332 BIT BITS+<11*2>, TSTNMS :DO THIS TEST? 
010574 001002 BNE .+ ; Y | 
010576 000137 011426 JMP TsT12 :NO=-JUMP TO TEST12 
010602 012737 11 001116 MOV #11,$TSTNM :SET TEST #11 AND CLEAR (SERFLG) 
010610 004737 023734 JSR PC, LODPRM [LOAD THE PARMETERS FOR THE TEST 
010614 012737 011102 001124 MOV #TEST11,$LPERR SETUP THE LOOP ON ERROR ADDRESS 
010622 013737 002322 001220 MOV RPT ,STIMES [GET THE ITERATION COUNT 
010630 112737 000031 001131 MOVB #25.,$ERMAX § :MAX ERRORS ALLOWED FOR TEST 
es 010636 012737 000011 001240 MOV #11,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
010644 032777 010000 170302 BIT #SW12,aSWR ZINHIBIT TYPING TEST NUMBER ? 
010652 001406 BEQ 316, :BR IF YES 
010654 104401 037265 TYPE :TYPE "TEST® 
010660 015766 1240 MOV giSeIsT_ on, 23 SAVE STESTN FOR TYPEOUT 
pisces ab me fer torent ee 
biocee 000 “BYTE 3 S:SUPPRESS LEADING ZEROS 
5 010670 005737 001342 TST CLKSTA sKult-P CLOCK? 
2 010674 003 BGT 1$ YES==START TEST 
39 010676 9001 11424 JMP EXIT11 SNO=-JUMP TO EXIT11 
10 2 012737 10708 001122 1$: MOV #. ,SLPADR i SETUP LOOP ADDR ESS 
1 01071 0 255 JSR RO. SRCHOO [D0 A MASSBUS INIT & RECAL 
10714 BR SRETURN HERE IF NO ERROR 
1071 1 11624 JMP EXIT! SRETURN HERE IF ERROR 
9107 12737 0107 2 001122 2s: MOV LPAD TERROR LOOP ADDRESS 
ot 730 112737 1 51 MOVB aSEEK DP. 7 : SEEK=COMMAND 
10 9 ? 51 CLR DPB. At 10 SUSE TRACK 0 & SECTOR 0 
Oi0rs H 3 Oerse 855380 mov MEST BY BYPASS ERO RAITT IP ERROR 
10756 004037 024076 JSR RO-CAL ?G0 EXECUTE THE COMMAND 
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MOV FC, RMDC(R4) 
MOV FS. =(SP) 
MOVB «FT, 1(SP) 
MOV (SP) +, RMDA(R4) 
MOV #EXITIT SESCAPE 
CLR R 
:SETUP PARAMETER TABLE FOR RM8O 
MOV RO,-(SP) 
MO DTADPB,RO 
BIT #sw06,C. 
BEQ Et} 
MOV #7118, R3 
MOV #7118, TP50 
MOV #SP11B, TPS5O 
BR 43 
3$: MOV #711A, TP60 
MOV T11A.R3 
MOV #SP11A, TPS60 
4$: MOV )+,RO 
NOP 
TEST11: 
MOV #STACK, SP 
MOV RI 
JSR PC, STRTMR 
MOV #4$,aPkV 
MOV #DORTI ,@RMVEC 
1$: CLR @PKB 
MOV #131, a@PKCS 
MOV #SEARCH, (R4) 
WAIT 
BIC #101, a@PKCS 
BIT #ERR.RMDS(R4) 
BEQ 2$ 
SAVREG 
MOV #DTADPB,R2 
JSR PC,SVRH70 
JSR PC.CNTCLR 
RESREG 
EMT 17 
2s: CLR aPKB 
MOV #SEARCH, (R4) 
MOV #131, aPKCS 
WAIT 
BIC #101, aPKCS 
BIT #ERR.RMDS(R4) 
BEQ 3$ 
SAVREG 
MOV #DTADPB,R2 
JSR PC, SVRH70 
JSR PC; CNTCLR 
RESREG 
EMT 17 
3$: JSR PC. COUNT 
DEC R 
BGT 1$ 
BR 5$ 


CRO V04.00 15-JAN-82 07:05:59 PAGE 14-1 
PEED TIMING TEST 


SAVE RO 
DRIVE ADDRESS 
3 CHECK CONTROL SWR FOR 60 HZ. 


:BR IF YES 
;LOAD 50 HZ. TABLE FOR RM80 


EXIT 


;LOAD 60 HZ. TABLE FOR RM80 


sRESTORE 
sEXIT 


sSETUP S$ 


RO 


TACK 


sTIME 10 S 


3ST 


POIN 
sSAVE ALL 
:G0 CLEAR 
sRESTORE 


BRANCH 
0-R5 


TER 
THE 


EARCHES 
INITIALIZE THE TIMERS 
SE VECTOR fe CASE 


RMB0 V 
T COUNTING AT ZER 
rv UP AT 


OF OVERFLOW 


0 
100K HZ RATE 


RH/RM REGISTERS 
. ~~! panes 


3START THE COUNT AT ZERO 
A SEARCH 


START 


s 

wn” 
— 
2 
=~ 


;SAVE RO-R 
;DPB_POINTER 
THE _RH/RM_ REGISTERS 


G0 CLEAR CONTROLLER 
sRESTORE RO-RS 


sUPDATE THE COUNT 
; DONE? 


3NO--BRANCH 
7YES--GO TO THE EXIT 


SEQ 0066 
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PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 14-2 SEQ 0067 
SPEED TIMING TEST 
777 : 101 170222 4$: BIC #101, aPKCS sSTOP THE CLOCK 


776 CLR PS sDROP_ THE ee 
; F WAIT? 


Saou 


037 
01 606 MOV (SP)+,RO PC 
995 2 (SP) + POP THE Ps FROM THE STACK 
10441 SAVREG TSAVE R 
012702 036574 #DTADPB,R2 [DPB POINTER 
004737 035744 JSR PC,SVRH70 *SAVE ALL THE RH/RM REGISTERS 
004737 023146 JSR PC. CNTCLR 760 CLEAR CONTROLLER 
104413 RESREG SRESTORE R 
104020 EMT 0 
004737 023146 5$: JSR PC, CNTCLR 360 CLEAR MASSBUS CONTROLLER 
004737 023240 JSR PC,ST.CLK ZINITIALIZE THE CLOCK 
012777 033526 920006 MOV #ISR,@RMVEC RESTORE RH/RM INT. VECTOR 
032737 000100 001314 BIT #SW06,C. 260 HZ? 
001007 BNE EXIT. ¢NO-BRANCH 
004037 026166 JSR RO, TYPTIM [TYPE THE TIMING 
001640 TP60: TIA :T ADDRESS 
004037 026060 JSR RO,SPTYP [TYPE THE SPEC 
001710 TPS60: SP11A 
000406 BR EXIT11 EXIT 
004037 026166 EXIT.A: JSR RO, TYPTIM sTYPE THE TIMING 
001650 TP50: 1118 STABLE ADDRESS 
004037 026060 JSR RO,SPTYP : 
001716 TPSSO: SP11B ; 
000004 EXIT11: SCOPE [CALL SCOPE ROUTINE 
Bg RAEEAAARARARARARAEREREEERERERRARERAAERAARARAERAARRARERAEREERRERRKE 
T*TEST 12 ONE CYLINDER SEEK TIMING TEST 
[eTHIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
?*CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
**CYLINDER 'LC’, THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
[*TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
**EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
[MAXIMUM TIME IS 6.0 # 
i aaa i at ak gt ene aa em eta 
240 
033737 001604 001332 BIT BITS+<12*2>, TSTNMS -DO THIS TEST? 
00100 BNE + 3 YES 
000137 012130 JMP TST13 [NO=-JUMP TO TEST13 
012737 900012 001116 MOV #12,$TSTNM :SET TEST #12 AND CLEAR (SERFLG) 
737 023734 JSR PC, LODPRM SLOAD THE PARMETERS FOR THE TEST 
0127 7 O11636 001124 MOV #TEST12,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
013737 002 2 1220 MOV RPT ,STIMES :GET THE ITERATION COUNT 
112737 000031 001131 MOVB #25.,SERMAX [MAX ERRORS ALLOWED FOR TEST 
012737 000012 001240 MOV #12,$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
032777 010000 167440 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
001406 BEQ +1 ; 
104401 037265 TYPE MSGTST [TYPE "TEST 
01374 1240 MOV $TESTN,-(SP)  ::SAVE STESTN FOR TYPEOUT 


§ TYPE=-OCTAL ASCII 


00 -BYTE 3 Si TYPE 3 DIGIT(S) 
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ONE CYLINDER SEEK TIMING TEST 
011531 000 .BYTE 0 z;SUPPRESS LEADING ZEROS 
142 011532 005737 001342 TST CLKSTA zkw11=P CLOCK? 
143 0115 : BGT i$ SYES==START TEST 
146 911340 1 012126 JMP EXIT12 [NO=-JUMP TO EXIT12 
147 011544 012737 011544 001122 1S: MOV #. ,SLPADR SSETUP THE LOOP ADDRESS 
148 011552 004037 025500 JSR RO, SRCHOO [DO A MASSBUS INIT. AND RECAL 
149 011556 0004 é BR [NO ERROR RETURN 
161 011560 137 012126 JMP EXIT12 TERROR RETURN=-SCOPE LOOP CALL 
011564 012737 011564 901122 2s: MOV #. ,SLPADR [ERROR LOOP ADDRESS 
011572 112737 000105 036510 MOVB &#SEEK,DPB.A+2 :SEEK=COMMAND 
011600 903037 036516 CLR DPB.A+10 [USE TRACK 0 & SECTOR 0 
011604 013737 002524 036520 MOV FC, DPB.A+12 SSTARTING CYLINDER 
O11612 012737 o1 126 001350 MOV WEXIT12,BYPASS :GO TO EXIT12 IF ERROR 
011620 004037 024076 JSR RO,CALL.A [G0 EXECUTE THE COMMAND 
011624 012703 001660 MOV aTi2,R *PARAMETER POINTER 
911630 012737 012126 001222 onan MOV #EXIT12,$ESCAPE :;ESCAPE TO EXIT12 ON ERROR 
162 011636 012706 001100 MOV #STACK,SP :SETUP STACK 
163 011642 013737 002324 036606 MOV FC,DTADPB+12 START WITH BEGINNING CYLINDER 
164 011650 005237 036606 INC DTADPB+12 SINCREMENT THE BEGINNING CYLINDER 
165 011654 005005 CLR RS SSET THE UP/DOWN SWITCH TO UP 
166 011656 004737 025664 JSR PC, STRIMR SINITIALIZE THE TIMERS 
167 011662 012777 012034 167640 MOV #5$,aPKV SSETUP INCASE OF OVERFLOW 
168 011670 012777 025662 017472 MOV MDORTI,aRMVEC SET RM8O VECT 
169 011676 005077 1676 1$: CLR “START THE COUNTER AT ZERO 
170 011702 013764 036606 000034 MOV DTADPB+12,RMDC (RS) :LOAD DESIRED CYLINDER 
171 011710 012714 000105 MOV #SEEK. (R4S ZSTART A SEEK 
172 011714 012777 000131 167612 #131, aPKCS [START THE CLOCK 
173 011722 909001 WAIT :WAIT ON INTERRUPT 
174 011724 042777 000101 167602 BIC #101, a@PKCS ‘STOP THE CLOCK 
175 011732 032764 000012 BIT WERR.RMDS(R4) ANY DISK ERRORS? 
176 011740 001411 BEOQ 2s :NO=-BRANCH 
177 011742 104412 SAVREG TSAVE RO-RS 
011744 912708 036574 MOV #DTADPB,R2 [DPB POINTER 
011750 004737 035744 JSR PC, SVRH?70 *SAVE ALL THE RH/RM REGISTERS 
011754 004737 023146 JSR PC. CNTCLR ?60 CLEAR CONTROLLER 
011760 104413 RESREG TRESTORE R 
178 011762 104017 EMT 4 
179 011764 004737 025726 2$: JSR PC. COUNT :COUNT THIS SEEKS TIME 
180 011770 005705 TST R [UP OR DOWN? 
181 011772 001011 BNE 43 : DOWN--BRANCH 
182 011774 005237 036606 3S: INC DTADPB+ 12 [MOVE TO NEXT CYLINDER 
183 01 023 7 036606 002326 CMP DTADPB+12,LC  ;OUT OF CYLINDERS? 
184 012006 27 3 BLT *NO=-GO DO THE NEXT SEEK 
185 012010 012705 177777 MOV #-1,R5 [SET UP/DOWN SWITCH TO DOWN 
186 012014 0007 BR [G0 DQ THE NEXT SEEK 
187 01201 33 036606 4$: DEC DTADPB+12 [MOVE TO NEXT CYLINDER 
188 01 737 036606 002324 CMP DTADPB+12,FC OUT OF CYLINDERS? 
189 0120 33 BGT 1$ ; 0 THE NEXT SEEK 
190 012032 BR rx] 760 TO THE EXIT 
191 0120 2 900101 167472 5$: BIC #101, aPKCS *STOP THE CLOCK 
19¢ 12042 037 177776 CLR ‘DROP THE PRIORITY 
193 01204 12600 (SP)+,RO [PC OF WAIT+ 
194 01205 72 (SP)+ POP THE Ps FROM THE STACK 
195 012052 10441 SAVREG [SAVE RO-R 
12054 012702 036574 MOV #DTADPB,R2 “DPB POINTER 
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EXIT12: SCOPE 
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PC, SVRH70 
PC; CNTCLR 
0 

PC,CNTCLR 
PC.ST.CLK 
#1SR,aRMVEC 
RO, TYPTIM 
RO, SPTYP 


ED Mie TI 


SEQ 0069 


seve ALL THE nef REGISTERS 
stone” an 


3G0_ CLEAR _MASSBUS CONTROLLER 
SINITIALIZE | Ly ag 
RESTORE R 


RM _INT. VECTOR 
760 TYPE tHe TIMES 
POINTER 


sCALL SCOPE ROUTINE 


Sa” 6) CEU na 


AVERAGE y TIMING T 

COMMAND A FORWARD SEEK 

THEN A REVERSE SEEK FROM CYLINDER ° 
TH Rais S ARE 5 ror 


FROM CYLINDER rhs TO 


AND CHECKED TO _— THEY 
FOR THE AVERAGE S 
TIMES (FOR A TOTAL OF 356 SEEKS). 


; THERE ute Pad NO tiettane oatve GIVEN FOR AN AVERAGE SEEK TIME 


DRIVE. 


. ; USED. FOR REFERENCE ONLY. 


THEREFORE, THIS TEST SHOULD BE 


Teeeeeeneeneneneenenteneeterenerenteneetenenenenneneesenenses 


‘itis: 


001122 1$: 


001122 2$: 


ed TS+<13*2>, TSTNMS 


ist14 
#13,STSTNM 


PC, LODPRM 
aTésT13, pSLPERR 


#25. , SERMAX 
#13, $TESTN 


esyle. aSWR 


MSGTST 
giSStsT oso) 


j 


LKSTA 
EXIT13 
#.,SLPADR 


EXIT13 
#.,SLPADR 


Oy THIS TEST? 

7NO=-JUMP TO TEST14 

3SET TEST #13 AND CLEAR (SERFLG) 
THE PARMETERS FOR THE TEST 

SET UP THE LOOP ON ERROR ADDRESS 

a THE ITERATION COUNT 

MAX ERRORS ALLOWED FOR TEST 

$:SET TEST NUMBER IN APT MAIL BOX 

ey TYPING TEST NUMBER ? 


IF YES 
3TYPE ‘*TEST® 
33 SAVE STESTN FOR TYPEOUT 
Moreieee ASCII 


260 TY 
$TYPE 5 DIGIT(S 
3; SUPPRESS CEADING ZEROS 


mt 1-P_CLOCK? 


sRETURN ON 
sERROR LOOP ADDRESS 
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T13 AVERAGE SEEK TIMING TEST 
12274 112737 105 036510 MOVB &#SEEK,DPB.A+2 ;SEEK=COMMAND 
oi $03 00 9 7 192 CLR PB.A+10 SUSE TRACK 0 & SECTOR 0 
01 13737 324 036520 MOV FC DPB Atl2 STARTING CYLINDER 
012314 012737 01 0013 MOV KIT13,BYPASS :GO TO EXIT13 IF ERROR 
012322 004037 0240 : JSR R AL ‘A [G0 EXECUTE THE COMMAND 
01 01 203 167 MOV aTi3,R : POINTER 
ot 012737 012666 001222 neal MOV #EXIT13,$ESCAPE :;ESCAPE TO EXIT13 ON ERROR 
11 MOV #STACK, SP :SETUP STACK 
$03 OiSeee 013706 HO 0200 MOV . Rl *REPEAT ""FC'="LC'="FC'" 128 TIMES 
243 012350 004737 023664 JSR PC, STRTMR SINIT. THE COUNTERS 
244 012354 012777 1g 4 167146 MOV #58, aPKV ‘SET UP ave STOR IN CASE OF OVERFLOW 
45 O12 012777 02 $62 017000 MOV MDORTI,@RMVEC SETUP RM8O VECTOR 
46 01 370 005077 16714 1$: CLR @PKB SSTART COUNT AT ZERO 
247 012374 013764 002326 000034 MOV LC, RMDC(R4) :"MIDDLE* CYLINDER 
248 012402 012764 000105 000000 MOV #SEEK RMCS1(R4) :START A SEEK 
49 012410 012777 000131 167116 MOV #131, aPKCS SSTART THE CLOCK 
50 012416 000001 WAIT [WAIT ON INTERRUPT 
251 012420 042777 000101 167106 BIC #101, aPKCS 7STOP CLOCK 
33 01426 056764 040000 000012 BIT HERR.RADS(R4) 3ERR=1? i 
254 012436 10441 SAVREG TSAVE RO-RS 
012440 012702 036574 #DTADPB,R2 *DPB POINTER 
012444 004737 035744 JSR PC,SVRH?70 *SAVE ALL THE RH/RM REGISTERS 
012450 004737 023146 JSR PC. CNTCLR 760 CLEAR CONTROLLER 
255 giSce6 10c017 BESREG poe Se 
256 012460 005005 2$: CLR RS :SET UP/DOWN SWITCH TO UP 
257 012462 004737 025726 JSR PC, COUNT [UPDATE THE C 
258 012466 005077 167044 CLR aPKB SSTART THE COUNT AT ZERO 
259 012472 013764 002324 MOV FC, RMDC(R4) [BEGINNING CYLINDER 
260 012500 012764 000105 000000 MOV WEEK RMCS1(R4) :START A SEEK 
361 012506 012777 000131 167020 #131, aPKCS SSTART THE CLOCK 
262 012514 900001 WAIT [WAIT ON INTERRUPT 
263 012516 04 000101 167010 BIC #101, aPKCS *STOP THE CLOCK 
264 O12524 032764 04 000012 BIT WERR.RMDS(R4)  :ERR=1? 
265 012532 001411 BEQ 3$ 7NO--BRANC 
266 012534 104412 SAVREG TSAVE RO-RS 
0125 912702 036574 MOV #DTADPB,R2 :DPB POINTER 
01254 00475 035744 JSR PC,SVRH70 *SAVE ALL THE RH/RM REGISTERS 
012546 004737 023146 JSR PC CNTCLR *G0 CLEAR CONTROLLER 
‘ ot 358 106615 RESREG - SRESTORE RO-RS 
68 ot 356 12705 177777 3$: MOV #-1,R5 :SET UP/DOWN SWITCH TO DOWN 
9 01 737 025726 JSR PC, COUNT [UPDATE THE COUNT 
70 oi 3301 DEC RI + DONE? 
71 012570 0032 BGT 1$ :NO=-BRANCH 
Ls 01257 420 BR 6$ SYES=-EXIT 
7 o1 57 é 900101 166732 5$: BIC #101, aPKis *STOP THE CLOCK 
7% 012602 037 177776 CLR PS [DROP THE PRIORITY 
75 01 12600 MOV (SP)+,RO [PC OF WAIT+ 
376 1261 2 TST (SP)+ POP THE Ps FROM THE STACK 
012612 10441 SAVREG TSAVE R 
12614 0127 574 MOV #DTADPB,R2 *DPB POINTER 
1 7 35744 JSR PC,SVRH70 *SAVE ALL THE RH/RM REGISTERS 
oI 4 0047 7 023146 JSR PC; CNTCLR :G0 CLEAR CONTROLLER 
1 104413 RESREG SRESTORE RO-R5 


RNGAO RM8O FCTNL PT4 MACRO vO4. 00 15-JAN-82 07:05:59 PAGE 14-6 
% AVERAGE SEEK TIMING TEST 
278 01 632 104 9 EMT 20 
79 012634 004 0 146 68: JSR PC. CNTCLR :60 CLEAR MASSBUS CONTROLLER 
80 012640 004737 0 24 JSR TCL SINITIALIZE THE CLOCK 
81 012644 012777 9 26 016516 MOV aisha sRESTORE RH/RA INT. VECTOR 
286 012652 037 26166 JSR a :GO TYPE THE TIMES 
01265 16 9 T13 ‘POINTER 
01 00403 026060 JSR RO,SPTYP 
012664 001732 SP13 
3p 012666 000004 EXIT13: SCOPE 3CALL SCOPE ROUTINE 
305 FRARAARAAARAAEAAREAAAAAAAAERAAEAEREARERARAEARARERAERARRRARRERERES 
CRTEST 16 MAXIMUM SEEK TIMING TEST 
:*THIS TEST WILL i CORMAND A FORWARD SEEK FROM CYLINDER Fee TO 
S*CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYL LINDER ‘Lc’ T 
**CYLINDER ‘FC’. BOTH SEEKS ARE TIMED, BUT THE FORWARD SEEK KS 
: SARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLE ERANCE ALLOWED FOR THE 
MAXIAUA EEK TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL 
$F 56. Seeks). MAXIMUM (FORWARD) TIME IS 50.0 MS 
; “THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE SFEK TIME 
> ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE week TIMES ABOVE 
: THE MAXIMUM TIME OF 50.0 MS WILL NOT PED IN TIMING REPORT. 
> HOWEV THE TIMING REPORT WILL STILL TYPE THE RINIPUL MAXIMUM, 
3 |AND AVE ERAGE TIMES FOR THE REVERSE SEEKS. 
- © RRAEAAERARERRARRARARRERERAERERARAARERERRERAEAAAAERRAEAAEREREERERE 
012670 TsT14: 
912670 90024 NOP 
012672 033737 001610 001332 BIT BITS+<14#2>, TSTNMS DO THIS TEST? 
012700 001002 BNE 
012702 000137 013440 JMP isT15 [NO=-JUMP TO TEST15 
012706 012737 14 001116 MOV #14,STSTNM :SET TEST #14 AND CLEAR (SERFLG) 
012714 004737 023734 JSR PC, LODPRM SLOAD THE PARMETERS FOR THE TEST 
0127 012737 013100 001124 MOV OTESTi4 SLPERR :SETUP THE LOOP ON ERROR ADDRESS 
012726 013737 00232 001220 MOV RPT ,STIMES [GET THE ITERATION COUNT 
0127 M1277 000031 001131 HOVB #25.,$ERMAX [MAX ERRORS ALLOWED FOR TEST 
one 012742 012737 000014 001240 MOV #4, STESIN +;SET TEST NUMBER IN APT MAIL BOX 
012750 032777 010000 166176 BIT #sule, asur : INHIBIT TYPING TEST NUMBER ? 
01 736 1406 BEQ :BR IF Y 
012760 104401 037265 TYPE GTST TYPE TEST? 
01 764 015746 001240 V giSStST_ op) 33 SAVE STESTN FOR TYPEOUT 
1 10440 TYPOS [60 TYPE PE--OCTAL ASCII 
1e77¢ 003 BYTE 3 SITYPE 3 DIGIT(S) 
1 000 “BYTE [:SUPPRESS LEADING ZEROS 
7 012774 005737 001342 TST CLKSTA skw11-P CLOCK 
1 H BGT i$ TYES==START TEST 
11 01 1 13436 JMP EXIT14 SNO=-JUMP TO EXIT14 
le 1 12737 01 006 001122 1$: MOV #.,SLPADR *SETUP THE LOOP ADDRESS 
13 013014 037 0255 JSR RO. SRCHOO [DO A MASSBUS INIT & RECAL 
14 01 4 BR SRETURN HERE IF NO ERROR 
6 01 1 13436 JMP EXIT14 SRETURN HERE ON ERROR 
or 6 012737 01 26 001122 28: MOV #. ,SLPADR TERROR LOOP ADDRESS 
1 112737 105 03651 MOVB &#SEEK,DPB.A+2 :SEEK=COMMAND 





SEQ 0071 
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RNGAO RM8O FCTNL P 
MAXIMUM SEEK TIMING TEST 
1 2 9 7 516 CLR pPB.A+10 sUSE TRACK 0 & SECTOR 0 
1 13737 ; 036520 MOV FC,DPB.A+12 ‘STARTING CYLINDER 
13054 012737 013436 0013 MOV #EKIT &,BYPASS :GO TO EXIT14 IF ERROR 
1 7? 02407 JSR RO,CALL.A :G0 EXECUTE THE C 
if 5 1 MOV aTig Rr PARAMETER POINTER 
oI ; 127 13436 001222 — MOV #EXIT14,S$ESCAPE :;ESCAPE TO EXIT14 ON ERROR 
7 013100 012706 0011 MOV #STACK, SP :SETUP STACK 
B 013104 15 1 8 MOV #128. ai SREPEAT ‘"*FC*="LC°="FC"*’ 128 TIMES 
013110 737 JSR PC STRTMR ‘INIT. THE TIMERS 
gt 114 01 13344 166406 MOV #5$,aPKV [SETUP VECTOR IN CASE OF OVERFLOW 
1 0131 12777 02 01624 MOV #DORTI,@RMVEC SETUP Hah VECTOR 
013130 00 077 1664 1$: CLR aPKB [START COUNTING FROM ZERO 
33 013134 013764 902526 34 MOV LC, RMDC(R4) [MAXIMUM CYLINDER 
3 01 Ibe 012764 19 MOV #StEK RMCS1(R4) :START A SEEK 
5 013150 012777 131 166356 MOV #131, aPKCS [START THE CLOCK 
36 013156 035007 WAIT sWAIT ON INTERRUPT 
37 1 160 042777 900101 166346 BIC #101, aPKCS ‘STOP THE CLOCK 
13166 032764 040000 1 BIT WERR.RMDS(R4)  ERR=1? 
39 013174 001411 BEQ 26 7NO=-BRANC 
0 013176 10441 SAVREG SSAVE RO-R5 
013 gi2 036574 MOV #DTADPB,R2 [DPB POINTER 
01 7 35744 JSR PC,SVRH70 [SAVE ALL THE RH/RM REGISTERS 
013210 0047 7 023146 JSR PC.CNTCLR 760 CLEAR CONTROLLER 
013214 1 13 RESREG SRESTORE RO-RS 
341 013216 10401 EMT 17 
01 005005 2s: CLR RS :SET THE UP/DOWN SWITCH TO UP 
013222 004737 025726 JSR PC, COUNT [UP THE COUNT 
01 5077 166304 CLR SSTART COUNT -AT ZERO 
5 01 3 2324 000034 V FC, RMDC(R4) ‘BEGINNING CYLINDER 
01324 900193 000000 MOV WEEK RMCS1(R4) :START A SEEK 
7 013246 000131 166260 V #131, aPKCS SSTART THE CLOCK 
013254 WAIT ‘WAIT ON INTERRUPT 
349 013256 O4e 000101 166250 BIC #101, aPKCS STOP THE CLOCK 
350 013264 032764 040000 00001 BIT MERR.RMDS(R4) =: ERR''=1? 
331 013272 001411 BEQ 3$ [NO=-BRANC 
52 013274 10441 SAVREG SSAVE RO-RS 
01 26 127 036574 MOV #DTADPB,R2 ‘DPB POINTER 
013 035744 JSR PC,SVRH70 [SAVE ALL THE RH/RM REGISTERS 
013306 7 023146 JSR PC; CNTCLR 760 CLEAR CONTROLLER 
O13 12 1 13 RESREG SRESTORE RO-R5 
53 013314 1 01 EMT 17 
54 01 16 12 i 177777 3$: MOV #-1,R5 :SET THE UP/DOWN SWITCH TO DOWN 
55 ot 5726 JSR PC, COUNT [UPDATE THE COUNT 
56 01 5037 00141 CLR TIA. DN¢2 [FORGET ABOUT # OF SEEKS BELOW MINIMUM TIME 
57 01 5037 00142 CLR TIM.DN+6 SFORGET ABOUT # OF SEEKS ABOVE MAXIMUM TIME 
58 01 5301 DEC R1 ‘DONE? 
59 01 3273 BGT 1$ : Cc 
1 BR 6$ TYES=--EXIT 
1 01 900101 166162 5$: BIC #101, aPKCS ‘STOP THE CLOCK 
1335 037 177776 CLR ‘DROP THE PRIORITY 
1 le MOV (SP)+,RO [PC OF WAIT+ 
1 TST (SP)+ POP THE Ps FROM THE STACK 
1 1044 SAVREG [SAVE Ri 
1 127 57% MOV #DTADPB,R2 ‘DPB POINTER 
ot 7 744 JSR PC, SVRH70 *SAVE ALL THE RH/RM REGISTERS 
13374 737 146 JSR PC; CNTCLR *GO CLEAR CONTROLLER 
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oS o-oo 


pare er 
WA 
A 

x Rorown 

™N 


FSRS 


8 
$23 


rs 
So 


w 
S 


wn 


RS 
pane ee Pee Pe er Pr 
NWA WI 
RAAT ¥ 
SNS 


SOSOSSCSOOSOCOOSS COOCoOoOOO SoOooooo 


SAS 


SESIES 
Sh 
AN 


a 


ee 


001612 
015142 


000012 5 
sts 
000015 
010000 


057362 
1240 


— 
O-WNeN—SO y 
NEMO ONS Wms 
AOLAUGOS Ss5 ™ 


m= 
& 
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SEQ 0073 


sRESTORE RO-R5S 


360 ft LEAR _MASSBUS CONTROLLER 
INIT JALIZE THE CLOCK 

RESTORE RH/RM INT. VECTOR 
:GO TYPE THE TIMES 


3CALL SCOPE ROUTINE 


Leen area al tee Tit Rae a 


TIME MEASUREMENT 


*TEST 15 AVERAGE SEEK TEST 
3*THIS est MEASURES THE AVERAGE SEEK TIME BY DOING ALL UNIQUE SEEKS 
TWEEN ‘FC’ AND ° AND THE 


SEEK TIMES. THE TOTAL 


MEASURING 
3 SEEK TIME FOR ALL stexs c THEN tes 68Y THE NUMBER OF SEEKS 
3 PEF! RANGE OF 


1s 25.0 AS. 


K TIME VALUE FOR THE 


3” WARNING = THIS TEST TAKES APPROXIMATELY 3.0 HOURS TO RUN 


 ecececncecnqnnenceecenqqeqnqnqqqqnesenenqnnqcecnseneeeeenqneece 


RESREG 
EMT 
68: JSR pC. CNTCLR 
JSR 
015746 MOV nish. aRAVEC 
JSR TYPTIM 
T14 
JSR RO, SPTYP 
SP14 
EXIT14: SCOPE 
RAGE 
PEORMED TO PROVIDE AN 
: aSEEKS TiMED. “VAXIMUM TIME” 
115: 
001332 BIT BITS+<15*2>, TSTNMS 
BNE +6 
JMP $eoP 
001116 MOV #15, $TSTNM 
JSR PC, LODPRM 
001124 MOV #TEST15, SLPERR 
001220 MOV RPT STIMES 
001131 MOVB #25.,SERMAX 
001240 MOV #15,$TESTN 
165426 BIT wsul2, asuR 
BEQ 
TYPE MSGTST 
V giSStST_ 
TYPOS 
.BYTE 3 
“BYTE 0 
TST CLKSTA 
BGT 1$ 
MP EXIT15 


Hirata 
RO, CALL.A 


yin? THIS TEST? 

iB0-U60 TO THE END OF THE PROGRAM 
sSET TEST #15 AND CLEAR (SERFLG) 
[LOAD THE PARMETERS FOR THE TEST 
[SETUP THE LOOP ON ERROR ADDRESS 
[MAX ERR ST 

+;SET TEST NUMBER IN APT MAIL BOX 
i INMIBIT TYPING TEST NUMBER ? 


sTYPE ‘TEST’ 

7s SAVE STESTN FOR TYPEOUT 
260 sree ereires ASCII 

3 TYPE 3 DIGIT 


T(S) 
33SUPPRESS LEADING ZEROS 


skW11-P CLOCK? 

;YES--START TEST 
3NO=-JUMP TO EXIT15 

i SETUP THE LOOP ADDRESS 

he eg INIT. AND RECAL 

ENO e RROR _R 

TERROR RETURN--SCOPE LOOP CALL 
ZERROR LOOP ADDRESS 

3 SEEK= K=COMMAND 
USE TRACK 0 & SECTOR 0 
? STARTING CYLINDER 
360 TO EXIT15 IF ERROR 

3GO EXECUTE THE COMMAND 


Soalined 
wan 


RAGE 
36 

& 

4 
50 
54 


OONAUSE 
SOoooOoCoOooOoooCoOo 


NUN Sae ne 
ee ce ee cee ced ed eed ed aed aed nd 


CNAULSWN — 


Py ot af at at at at 
mr 


ns 
MOPARS! 


Ft at 
28S 
Soooooooooo 


Sd EB 
SSSIEUGEG 
ee ce ceed ced ceed ced eed ed eed ed ed 


RREE 
wre 


E S855 


Spo ES 
SIA 
MPWNO 

RE 


w 
. *) 


SNe 
RRSSNS SF 


FERES 


SEEK TIME MEASUREMENT TEST 


012737 015140 





ss 


=S=WAAMNAAMAUIVIAD 
SONONOCOOOCOSSOO 


Sxussssssss 


35 
77 151 
12777 025 


001222 


001506 


165222 


TEST15: 


1$: 
2$: 


MOV 
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WEXITI5,SESCAPE ;;ESCAPE TO EXIT15 ON ERROR 


#STACK SP 
SKTIM 


SKTIM¢2 
SKTIM+4 
SKTIM+6 
SKCNT 
SKCNT+2 
SKSIZ 


CYINC 
CYINC,,SKSIZ 
3$ 


6 


sSETUP STA 


;CLEAR THE Seek TIMER 


CLEAR THE SEEK COUNTER 
SET SEEK LENGTH TO ZERO 


SINCREMENT THE SEEK 
HE $ 


LENGTH 
7CLEAR T TARTING INCREMENT 
sFINISHED WITH THIS PASS ? 


zTYPE CURRENT SEEK SIZE AND NUMBER OF SEEKS, IF SW12=1 
sSEE IF SWITCH 12 SET 


3$: 


4$: 


5$: 


7$: 


#SW12,aSWR 
be 


16$ 
SkSIZ.<(SP) 
PC,$SB2D 
* ;SSUPRS 


$ 
BSKENT -(SP) 
PC,$ 


»$DB2D 


PC, SSUPRS 
1$ 


14$ 


PC,ST.CLK 
#1SR, aRMVEC 


DPRLASION 


ret te AYPASS 


vss, aPKV 


#DORTI , @RMVEC 


co RMD 


#101, aPKCS 


aSEEK RAC RAST (R4) 


3 "SEEK SIZE= 
3MOVE IT TO THE STACK 
;CONVERT IT 


:CONVERT T 
TYPE I7 
CONTINUE 


3 SETUP STARTING ADDRESS 
STARTING ADDRESS 
OPY THE STARTING ADDRESS 


“A ADD THE 
SENDING CY 


LINDER 

SSEEK IF ENDING CYLINDER TOO LARGE 
SIF LOS, NO 

*FINISHED WITH THIS PASS 


F SEEKS=* 


R OF 
SEEK x ae POINTER 


ASCII 


sRE-INIT THE CLOCK 
ZRESTORE THE RH VECTOR 


SE 


360 EXECUTE THE COMMAND 


EK=COMMAND 
SUSE TRACK 0 & SECTOR 0 
; YLINDER 


sSTOP THE CLOCK 


3SETUP CLO 
3 CHANGE 


3START COUNT AT ZERO 
LOAD crc aeeen ADDRESS 


TSTART A S 


sSTART THE CLOCK 
[WAIT ON INTERRUPT 


3STOP CLOCK 


0 
K VECTOR IN CASE OF OVERFLOW 
0 VECTOR 


SEQ 0074 


¢ 
1 
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SEEK TIME MEASUREMENT TEST 


T15 


AVERAGE 


™ 
— 
“J 
NO 


S555 

Soo 
COSCSOSOOOOCOSOO 
ee at eh td 
PRERSSSRS 
WRN 
Coroner 


MMM 


476 014246 
479 014254 
0142 
014 
480 014270 
481 014276 
483 O16 ae 


494 

495 014370 
14370 

496 014376 

497 014402 

500 01441 

501 014416 


593 014422 
504 Oieege 
505 0144 


wi 
o 
™N 
RRR 
aS 
Re 
On 


SRNR 
l=] =] =] 
as 
rm 
rs 
awn 
nm 


WMWEWN =O 
Sooocoooeoo 


PAIAMIAMIUIWIV 
per pee ne ere eee 


ee ceed eh ced cb aot 


040000 000012 


Wo =WWO—r 
We trasSennk 
ise) 
Ww 
—_ 
S 
oa 


036702 


NNO NNSY 


Nw 


015130 


NON 
Ww 
N 


g 
N 
~“ 
Ww 
NN 
= 
oO 


001472 


S 
S88e. 


z 


= 

4 

4 
sss 8 
Ss F 

= 

, 

or 


NMN=-ny — 
WU 


Ss 
mm 
SSoe S 


<= 
—— 


036510 
50 056980 
40 001350 


S228 
= 
oNNoN 
WWW 
ANNNN 
RSSas 
Rane 
wu 


WS 
— oo— scs 


mwrouw 
moO 


03 165074 
014726 


S 238 


oa 
mu WWM 
o 


RF 
s 


zs 8s 
S 


000034 
105 000000 
13% 165044 
101 165034 
000012 


es ooo 
ed and oh 
os 
Se88 
Revo 


eS 


or 
hor 
NN 


i=] 
— 
<o 
wo— 
NIRA 
oo 
WG 
on 
S 
& 


“J 
WG 
N 
So 
™ 
Ww 
— 
. 
oa 


9S: 


10$: 


11$: 


12$: 


——o- 


#DTADPB,R2 
PC, SVRH70 
PC. CNTCLR 


SEQ 0075 


sERR=1? 
=NO--BRANCH 
SAVE RO-R5S 
3DPB POINTER 

sSAVE ALL THE RH/RM REGISTERS 
3G0 CLEAR CONTROLLER 

REST RO-R5 
PORT THE ERROR 


? “RE 
WSKI,RM.REG*RMER2 ;SEE IF SKI SET 


PC,ST.CLK 
#ISR,@RAVEC 
teas 


aPKC ,SKTIM 
SKTIM+2 


NC2,NC1 
SKSIZ,NC2 
NC2,LC 

7$ 
LC,NC2 
CYINC NC2 


NC2,NC 
SKS1Z,NC1 
PC,ST.CLK 
#ISR,@RMVEC 


ASEEK ,DPB.A+2 


At 
wee Org Avie 
#EXIT15 BYPASS 


RO,CALL.A 


aPKCS 
#18$,aPKV 


#DORTI , @RMVEC 


aPKB 
NC1,RMDC(R4) 
SEEK RMCS1(R4) 
#131, aPKCS 


#101, aPKCS 


#81714 RADS(R4) “ERR 
13$ 


#DTADPB,R2 
PC, SVRH?70 
PC; CNTCLR 


*RE-INIT THE CLOCK 
SRESTORE THE RH VECTOR 
TISSUE A RECAL 


:TRY AGAIN 

sADD THE COUNTER VALUE 
3ADD ANY CARRY 

3ADD ANY CARRY 

3ADD ANY CARRY 

3COUNT THE SEEK 


GET NEW STARTING CYLINDER 
sNEW ENDING CYLINDER 

yt at Hag IN THIS DIRECTION ? 
3;SETUP_FOR REVERSE SEEK 
sADJUST ADDRESS 

sCOPY ADDRESS 

sNEW ENDING ADDRESS 


sRE-INIT THE CLOCK 
sRESTORE THE RH VECTOR 


3 SEEK=COMMAND 
sUSE_TRACK 0 & SECTOR 0 
sSTARTING er 

3G0 TO EXIT15 IF ERROR 
GO EXECUTE THE COMMAND 


sSTOP THE CLOCK 
SETUP CLOCK VECTOR IN CASE OF OVERFLOW 
sCHANGE RM80 VECTOR 


3START COUNT AT ZERO 
LOAD CYLINDER ADDRESS 
sSTART A SEEK 

START THE CLOCK 

sWAIT ON INTERRUPT 
sSTOP CLOCK 


3NO--BRANCH 

3SAVE RO-R5 

3DPB_ POINTER 

3SAVE ALL THE RH/RM REGISTERS 
3GO CLEAR CONTROLLER 


mma 
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AVERAGE SEEK TIME MEASUREMENT TEST 
014526 10441 RESREG sRESTORE RO-RS5 
516 145 9 10401 MT “REPORT THE ERROR 
17 014532 032737 040000 036702 BIT #SKI,RM.REG+RMER2 SEE IF SKI SET 
518 014540 00147 BEQ 13$ SIF EQ 
219 01454 3 923240 JSR PC,ST.CLK *RE=INIT THE CLOCK 
30 014546 012777 033526 014614 MOV #15R,@RMVEC SRESTORE THE RH VECTOR 
521 014554 004037 024710 JSR RO,CALL.R SISSUE A RECAL 
322 014560 000703 BR 10$ :TRY AGAIN 
524 014562 067737 164752 001472 13$: ADD @PKC,SKTIM sADD THE COUNTER VALUE 
527 014570 005537 001474 ADC SKT IM+2 [ADD ANY CARRY 
014574 005537 001476 ADC SKTIM+4 TADD ANY CARRY 
014600 005537 001500 ADC SKTIM+6 TADD ANY CARRY 
528 014604 062737 000001 001502 ADD #1, SKCNT COUNT THE SEEK 
369 014612 005537 001504 ADC SKCNT +2 : 
531 014616 013737 002346 002350 MOV NC1,NC2 :COPY ENDING ADDRESS 
532 014624 163737 001506 002346 SUB SKS1Z,NC1 [NEW ENDING ADDRESS 
533 014632 005737 002346 TST NCI *SEE IF THE NEW CYL IS NEGATIVE 
534 014636 190404 BMI 14$ TIF MI, YES = FINISHED 
535 014640 023737 002346 002324 CMP NC1,FC SFINISHED ? 
536 014646 103275 BHIS 12% : S, NO 
537 014650 013746 002326 14$: MOV LC,-(SP) [PUT THE ENDING CYLINDER ON THE STACK 
538 014654 163716 002324 SUB FC. (SP) *FIND THE DIFFERENCE 
539 014660 023726 001506 CMP . SKSIZ,(SP)+ SSEE IF TEST FINISHED 
540 014664 103004 BHIS 15$ TIF HIS, YES 
541 014666 005237 001510 INC CYINC S INCREMENT THE CYLINDER OFFSET 
34¢ 014672 000137 013714 JMP 2$ + CONTINUE 
544 014676 004737 023146 15$: JSR PC, CNTCLR 360 CLEAR MASSBUS CONTROLLER 
545 014702 004737 023240 JSR PC.ST.CLK *RE-INIT THE CLOCK 
546 014706 012777 033526 014454 MOV #ISR,aRMVEC *RESTORE THE RH VECTOR 
548 014714 104412 SAVREG sSAVE RO-RS 
583 014716 104401 037634 TYPE ,MEASUR ‘TYPE "AVERAGE SEEK TIME MEASUREMENT® 
014722 013703 001472 MOV SKTIM,R3 3LOAD, THE DIVIDEND 
014726 013702 001474 MOV SKTIM+2,R2 Patt. " 
014732 013701 001476 MOY SKTIM+4.R1 | «= ee 
014736 013700 001500 MOV SKTIM+6,RO nadia, ee 
014742 013705 001502 MOV SKCNT,R ZLOAD THE DIVISOR 
01474 015704 001504 MOV SKCNT+2.R4 a . 
014752 004737 022652 JSR PC M.DPID *FIND THE AVERAGE 
01475 010337 001472 MOV R3.SKTIM 3LOAD THE QUOTENT FOR DISPLAY 
014762 010237 001474 MOV R2.SKTIM+2 ; = * ws ” * 
014766 104401 901231 TYPE  ,S$CRLF CRLF 
014772 104491 037710 TYPE § >MSGAVG "AVG="" 
01477 012746 00° $72 MOV WSKTIM,-(SP) | SAVERAGE SEEK TIMC POINTER 
01500 00473 02224 JSR PC, $DB2D [CONVERT TO ASCII 
015006 004737 02244 JSR PC. SSUPRS ZTYPE IT 
015012 104401 03771 TYPE =, MSGOUS TYPE ‘'0 Us" 
015016 104401 03716 TYPE COMMA sTYPE ‘*, 
91502 012746 1502 MOV WSKCNT,-(SP) | :SEEK COUNT POINTER 
15026 73 266 JSR »$DB2D *CONVERT TO ASCII 
015032 004737 022442 JSR PC; $SUPRS TY 
015036 104401 040021 TYPE ,MSGSEK *TYPE ‘* SEEKS TIMED" 
015042 104413 RESREG SRESTORE RO-RS 
015044 000435 BR EXIT15 *BR TO EXIT15 





mo 


M 
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CZR 
15 AVERAGE SEEK TIME MEASUREMENT TEST 
584 
85 01504 123 105 16$: eASCIZ <CRLF>/SEEK SIZE=/ 
By b13068 doe 040 116 198: eASCIZ /, NO. OF SEEKS=/ 
4 ~EVEN 
589 015102 005077 1G4406 18$: CLR aPKCS sSTOP THE CLOCK 
590 O1a193 005037 177776 CLR P sDROP THE PRIORITY 
591 015112 012600 MOV (SP)+,RO 3P WAIT+ 
592 015114 005726 TST (SP)+ 3POP_THE PS FROM THE STACK 
593 015116 104412 SAVREG 3SAVE_RO=R5 
015120 012702 036574 OV #DTADPB,R2 :DPB_POINTER 
015124 004737 035744 JSR PC,SVRH/0 3SAVE ALL THE RH/RM REGISTERS 
015130 004737 023146 JSR PC,CNTCLR GO CLEAR CONTROLLER 
015134 104413 RESREG sRESTORE RO- 
594 015136 104020 MT 0 sCLOCK OVERFLOWED 
o32 015140 000004 EXIT15: SCOPE sCALL SCOPE ROUTINE 


33 


Qo 


wv" 
— 
RES 
ornr 


WV 
—— 
NEO 


& 


IDI) ad aed ad ed 


MMMM RoPororororrnyne 
Roe S 
nO SNOUSE 


VW VMMIVMVIVMIVMMMIUMIMIMIMIII—C IVI 
tia rasan 
Gor en RSF 


AAA 
WWWIWI 
So oon SV 


ced et ed ed aed cred md ceed A od A eh ed ed AB ned aed aed eet ed ed ee ee et eed aed ed ek md a a ad a aA 


SOOoooooooeso SOSOCOSOSSOSOOOSOSSS SCOCOoOCoOoOoOSOoO Sooo CoCo 


w 
& 


104401 
000407 


104401 
000405 


013746 
104403 
002 


015150 
015174 
001352 


001126 
015232 


015334 


B18 
00004 


377 


~SBTTL END OF PASS ROUTINE 


SINCREMENT THE PASS MER (SPASS) 


 SINCREMENT THE PASS te (SPAS 
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END OF PASS ROUTINE 


is INDICATE i ak 


SEOP: 


éig?** 


éisi** 


sig? 


1$: 


SEOPCT: 


THERES A 


TYPE 
BR 
eASCIZ 


SENDCT: .WORD 


is 


$GET42: MOV 


SENDAD: 


SDOAGN: 
SRTNAD: 


000 SENULL: 


65$ 


67$ 
$ 


6 
/ ON DRIVE/ 
CHKDRV ,~(SP) 


SERTTL 
9$ 


SERTTL 
STSTNM 
STIMES 


71000 
#100000, $PASS 
(PC)+ 


SDOAGN 
{PCd+.acPCrs 


65$ 


re 


PC, (RO) 


C)+ 


a(P 
RTURN 
-1,°1, 





om 


air PASSES THRU THE PROGRAM 
3*IF MONITOR TO IT 
3*IF THERE ISN'T JUMP TO RTURN 


se TYPE ASCIZ STRING 
ET OVER THE ASCIZ 
<CRLF><LF>/END OF PASS/ 


z3TYPE ASCIZ STRING 
32GET OVER THE ASCIZ 


32shve CHKDRV_FOR TYPEOUT 
23G0 TYPE~-OCTAL ASCII 
: Type 2 DIGIT(S) 

3 SUPPRESS LEADING ZEROS 
SANY ERRORS DETECTED ? 


is TYPE ASCIZ STR 
ra:¢4 “GET OVER THE ASCiz 
7 ERRORS DETECTED=/ 


SERTTL,=(SP) 33SAVE SERTTL_FOR TYPEOUT 


+260 TYPE=-OCTAL ASCIICALL DIGITS) 
sCLEAR ERROR TOTAL 
TEST NUMBER 
33ZERO THE NUMBER OF ITERATIONS 
33 INCREMENT hay | PASS NUMBER 
sDON'T ALLOW A NE R 
z3YES 
3sRESTORE COUNTER 


z:TYPE ASCIZ STRING 
*:GET OVER THE ASCIZ 
<CRLF>/END OF TEST/<CRLF> 


sTYPE NULL _CHARACTER 


33NULL CHARACTER STRING 
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END OF PASS ROUTINE 


15406 srt 3 RTURN: MOV #STACK,SP ;RESTORE STACK 
1342 134 JSR PC, $TKINT SMAKE SURE KEYBOARD INTERRUPT AND 

24 48h PC’ST.CLK SINITIALIZE THE CL LOCK 
1343 806937 510 JMP RSTART SRETURN TO RESTAR 


: 
oO 
a 
~ 
4 
nn 
g 
— 
* 


—_ 
MMMM AMAIA 
Pag serait a eae 
SESE RNR SRRANERS 


SERSSRAAL 
dd ad ed Vin 
PRESSES 


AVS 


me ee ce ce ce ce ee ce ee ce cee aed cee ed ee ce ed ed eed ed ed ed ed od od 


CSOSDSOSOSOSCOSOSCOSOSOOOOOOCOOOSO OOOO SoOoOoooOooooO 
per Peer Pear Par Pee Per Per er ere es 
AAA MMII 
SOSS EC: 
os 
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zZ 
v 
~« 
~~ 
= 


~SBTTL APT COMMUNICATIONS ROUTINE 





© RRRRAERERAEAEREERERAEREREREEERRERAERRERARARRERAAEAERERERERAREREEE 





1137 7 1 015673 $ATY1: MO #1,SFFLG ::TO REPORT FATAL ERROR 
11 130 1 015670 S$ATY3: MOVE a SHFLG 7:70 TYPE A MESSAGE 
000493 000001 015672 SAT YG: MOVB «#1, SFFLG 3:TO ONLY REPORT FATAL ERROR 
010046 MOV RO,-(SP) :3PUSH RO ON STACK 
010146 MOV R1.=(SP) + PUSH R1 ON STACK 
105737 015670 TSTB © SMFLG S:SHOULD TYPE A MESSAGE? 
001450 BEQ 5$ S:1F NOT: BR 
1 e737 000001 001254 COP #APTENV, SENV i ZOPERATING UNDER APT? 
132737 000100 001255 BITB §§ #APTSPOOL,SENVM ::SHOULD SPOOL MESSAGES? 
001425 BEQ 3$ Si IF NOT: 
017600 000004 MOV a4(SP) ,RO t:GET MESSAGE ADDR. 
062766 000002 000004 ADD #2,4(SP) 3;BUMP RETURN ADDR. 
005737 001234 1$: TST SMSGTYPE z:SEE IF DONE W/ LAST XMISSION? 
001375 BNE 1$ S:IF NOT: WAIT 
010037 001250 MOV RO, SMSGAD *:PUT ADDR IN MAILBOX 
105720 2s: TSTB =: (RO) + *:FIND END OF MESSAGE 
001376 BNE 2$ 
163700 001250 SUB SMSGAD RO ::SUB START OF MESSAGE 
006200 ASR RO t:GET MESSAGE LNGTH IN WORDS 
910037 001252 MOV RO, SMSGLGT +:PUT LENGTH IN MAILBOX 
0127 37 000004 001234 MOV #4. SMSGTYPE +: TELL APT TO TAKE MSG. 
017637 000004 015602 3$: MOV a4(SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
766 900002 000004 ADD We 4(SP) 5iguNP RETURN ADDRESS 
013746 177776 MOV 177776,=(SP)  :;PUSH 177776 ON STACK 
004737 017116 JSR PC, $TYPE t:CALL TYPE MACRO 
000000 $3: eWORD 0 
105737 015672 10$:  TSTB  SFFLG ::;SHOULD REPORT FATAL ERROR? 
1416 BEQ 12$ 33 : BR 
573 TST SENV + RUNNING UNDER APT? 
1613 BEQ 12$ t:1F NOT: 
00573 11$: TST SMSGTYPE FINISHED LAST MESSAGE? 
00137 BNE 11$ SIF NOT: WAIT 
108s 001236 MOV a4(SP),S$FATAL ;;GET ERROR # 
$6 000004 ADD #2,4(SP) -:BUMP RETURN ADDR. 
2 INC SMSGTYPE z:TELL APT TO TAKE ERROR 
10503 12$:  CLRB $FFLG *:CLEAR FATAL FLAG 
10503 CLRB SLFLG 33 LOG FLAG 
10503 CLRB = SMFLG T:CLEAR MESSAGE FLAG 
012601 MOV (SP)+,R1 7:POP STACK INTO R1 
012600 (SP)+.RO ::POP STACK INTO RO 


MN 
oS 
™~ 
v 
o 
° 
e 


RTS 73R 

SMFLG: .BYTE 3sMESSG. FLAG 

SLFLG: .BYTE 33L0G FLAG 

SFFLG: .BYT z3FATAL FLAG 
EYER 

APTSIZE = 

APTENV. = 001 

APTSPOOL= 

APTCSUP = 04 
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ERROR HANDLER ROUT! 
~SBTTL ERROR HANDLER ROUTINE 


: Cn pene ci yong minnie em gene apt a eet 
*THIS ie bf 3 WILL_INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: *SAVE T i HE 7 OR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 





[SAND Gi YPERR ON ERROR 
[*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SW15=1 HALT ON ERR 
:*SW13=1 INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERR 
SW09= LOOP ON ERROR 
3* ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
015674 105037 016334 SERROR: CLRB  _—s«IBSAVE z3CLEAR THE ITEM BYTE SAVE LOCATION 
015700 104407 CKSWR “TEST FOR CHANGE IN SOFT-SWR 
015702 032777 000400 163244 BIT #SW08,aSWR ?SEND ERROR MESSAGE TO TTY? 
015710 001411 BEQ 7  YES=-BRANCH 
015712 005737 001326 TST PTAVL 31S THERE A LINE PRINTER AVAILABLE? 
015716 001406 BEQ CH 
015720 013737 001554 001164 MOV LPS,$TPS SYES--SETUP STATUS 
013726 013737 001556 001166 MOV LPB, $TPB “AND BUFFER REG.'S FOR LINE PRINTER 
015734 105237 001117 7$: INCB — SERFLG 33SET THE ERROR FLA 
015740 001775 BEQ 7$ DON'T LET THE FLAG GO TO ZERO 
015742 013777 001116 163206 MOV STSTNM,@DISPLAY 2 :DISPLAY TEST NUMBER AND ERROR FLAG 
015750 032777 002000 163176 BIT #81710, aSWR 33BELL ON ERROR? 
015756 001402 BEQ 1$ ‘NO = SKIP 
015760 104401 001224 TYPE $BELL : TRING BELL 
015764 005237 001126 1$: INC $ERTTL ::COUNT THE NUMBER OF ERRORS 
015770 011637 001132 MOV (SP) , SERRPC t:GET ADDRESS OF ERROR INSTRUCTION 
015774 162737 001132 SUB »SERRPC 
916002 117737 163124 001130 MOVB  aSERRPC,SITEMB STRIP AND SAVE THE ERROR ITEM CODE 
016010 032777 001000 163136 BIT #B81T09, aSWR 33SEE IF LOOP ON ERROR IS SET 
016016 901060 BNE 10 * BRANCH AR ROUTINE IF SO 
016020 122737 000177 001130 CMPBs«a#177, SITEMB 33 SEE IF THIS IS THE POWER FAIL CALL 
916026 001454 BEQ 1004$ CH T IS 
016030 105737 016334 TSTB ‘IBSAVE 3ISEE IF THIS IS ONE 2ND ERROR CALL IN THIS ROUTINE 
016034 001047 BNE 1003$ CH IF SO 
016036 022737 177777 016332 CMP #1 CPSAVE 3ISEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
016044 001445 BEQ - 1004 cH I 
01604 013746 MOV ERRVEC = (SP) 33 SAVE CONTENTS OF ERROR VECTOR 
01605 01273 016070 900004 MOV i768 SERRVEC ETUP *TRAP® ADDRESS 
oI 13737. 177766 016332 MOV 17 66, CPSAVE  2:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
o18096 ey 177777 016332 1000$: MOV S OsAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
016076 1 Ht 04 MOV rt CPsAVE, t:SETUP RETURN ADDRESS 
016104 b12ee 000004 1001$: MO (SP)+,ERRVEC  ;;RESTORE CONTENTS OF ERROR VECTOR 
016110 022737 177777 016332 1002$: CMP #1, CPSAVE 33SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
016116 001420 00 BEQ : :BRANCH 
bisise 052737 00000 om iT 1700, CPSAVE 33SEE If Pov MONITOR BIT IS SET IN CPU ERR REG 
016130 042737 BIC #81T00,177766 33 CLEAR THE BIT FOUND SET 
016136 113737 0011 130 016 a8 MOVB Hy Silene IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
016144 112737 130 MOVB <°SET SITEMB TO SPECIAL POWER FAIL POINTER 
016152 02 BR BRANCH OVER IBSAVE CLEARING 





es. 
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016154 105037 016334 1003s CLRB —s:IBSAVE s3CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

016160 032777 020000 162766 BIT #81T13,aSWR zs SKIP TYPEOUT IF SET 

016166 001 BNE t:SKIP TYPEOU 

016170 004737 016336 JSR PC, TYPERR 7:G0 TO USER ERROR ROUTINE 

O16174 104401 001231 on TYPE  ,$CRLF 

916200 122737 000001 001254 CMPB = WAPTENV,SENV =; ; RUNNING IN APT MODE 

016206 001007 BNE 2$ 7:NO,SKIP APT ERROR REPORT 

016210 113737 001130 016222 MOVB  $ITEMB,21$ +:SET ITEM NUMBER AS ERROR NUMBER 

01 1g 004737 015444 JSR PC,SATY4 ::REPORT FATAL ERROR TO APT 

01622 000 21$: BYTE 0 

O16228 000 “BYTE 

016224 900 22$: BR 22$ T ERROR LOOP 

016226 105737 016334 2$: TSTB IBSAVE iitee IF PBSAVE 1S LOADED 

016232 001005 BNE $ ::BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR 

016234 005777 162714 TST aswR T:HALT ON ERROR 

016240 100002 BPL 3$ 33SKIP IF CONTINUE 

016242 HALT L 

016264 104407 - CKSWR tI TEST FOR CHANGE IN SOF T=SWR 

016246 105737 016334 TSTB _—s«IBSAVE 33SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 

016252 00123 BNE 7$ ZBRANCH BACK TO CALL ORIGINAL ERROR 

016254 032777 001000 162672 BIT #B1T09,aSwR 33 LOOP ON ERROR SWITCH SET? 

016262 001402 BEQ [BR IF NO 

016264 013716 001124 MOV SLPERR, (SP) :TFUDGE RETURN FOR LOOPING 

016270 005737 001222 4$: TST SESCAPE 33 CHECK FOR AN ESCAPE ADDRESS 

016274 001402 BEQ $ IF NONE 

O16 76 013716 001222 “ MOV SESCAPE.(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 

016302 022737 015366 000042 CMP #SENDAD ,a#42 pACT 1 AUTO-ACCEPT? 

016310 001001 BNE 6$ 33BRANCH IF NO 

gishe oa as pe 

016314 013737 001550 001164 MOV TPS ,$TPS sSET STATUS AND BUFFER REG.'S 

016322 013737 001552 001166 MOV TPB, $TPB FOR TTY 

016330 000002 3 RTI [RETURN FROM ERROR CALL 

016332 000000 CPSAVE: .WORD 0 +;LOCATION TO SAVE CPU ERROR REG CONTENTS 

016334 000000 IBSAVE: .WORD 0 *:LOCATION TO SAVE ITEM BYTE 
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-SBTTL TYPERR = TYPE ERROR ROUTINE 








¢ THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE 
4 [WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE “ERROR 
5 STABLE’ (SERRTB), AND REPORTS fHE APPROPIATE INFORMATION 
6 : CONCERNING THE ERROR. 
8 : JSR PC, TYPERR 
2 : RETURN 
11 016336 113737 001116 001212 TYPERR: MOVB  STSTNM,STMPO SAVE THE TEST NUMBER 
le 016 104412 SAVREG SSAVE RO = RS 
13 016346 162700 900004 SUB #4,RO [FORM TEST PC 
14 016352 010037 001176 MOV RO. $REGO [COPY RO-RS IN SREGO-$REGS 
15 016356 010137 001200 MOV R1.$REG1 
16 016 010237 001202 MOV R2,$REG 
17 01 010337 001204 MOV R3.$REG 
18 01637 010437 901206 MOV *SREGS 
19 016376 010537 00121 MOV R5,$REGS 
20 016402 113700 001130 MOVB TEN RO :PICKUP ERROR ITEM NUMBER 
21 016406 122700 000177 CMPB 177,R0 [SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
22 016412 001007 BNE 1$ [BRANCH IF NOT 
23 016414 903001 CLR R1 
27 016416 013737 001240 017114 MOV STESTN,PFTSTIN ;GET TEST NUMBER 
29 016424 012700 016754 MOV #PFECH,RO [MOVE POWER FAIL ERROR CALL TABLE TO RO 
30 0164 900412 BR 3$ 
31 016432 010001 1$: MOV RO,R1 zAND COPY IT INTO R1 
32 016434 005300 DEC RO [FORM INDEX FOR ERROR TABLE 
33 016436 106300 ASLB = RO 
34 016440 106300 ASLB = RO 
35 016442 106300 ASLB = RO 
36 016444 103002 BCC 2$ -1S ERROR > 37? 
37 016446 700 000240 ADD #ITEM41-SERRTB,RO -YES=-FORM OFFSET 
38 016452 700 602000 2s: ADD #SERRTB,RO sFORM ADDRESS 
39 016456 012037 016476 $: MOV (RO)+,4$ [GET ERROR MESSAGE (EM) POINTER 
40 Or et25 001451 BEQ [BRANCH IF THERE ISN'T ONE 
41 016464 004737 023030 JSR PC, INCEC ZINCREMENT ERROR COUNT 
4¢ 016470 104401 001231 TYPE  ,$CRLF "CARRIAGE RETURN = LINE FEED 
43 016474 104401 TYPE 
44 016476 4$: .WORD 0 EM’ POINTER GOES HERE 
45 016500 162701 000041 SUB #41,R1 [SPECIAL ERROR ITEM NUMBER? 
46 016504 100440 BMI 9$ 3 
47 016506 013701 001356 MOV SVSTAT,R1 3GET STATUS/ERROR INDICATOR 
48 016512 106301 ASLB sR STRIP ‘DONE’ BIT (BITO7) 
49 016514 006301 ASL R1 [STRIP "ERROR BIT (BIT15) 
50 016516 012702 001746 MOV #STATBL .R2 [1ST ADDRESS ON STATUS MESSAGE POINTERS 
51 016522 00500 CLR R SCARRIAGE RETURN-LINE FEED SWITCH 
52 016524 104401 016532 TYPE 65$ *:TYPE ASCIZ STRING 

016530 000402 BR 64$ 7:GET OVER THE ASCIZ 

eens 1658: eASCIZ / (/ 
53 016536 012237 016560 gs MOV (R2)+,7$ :MESSAGE POINTER 
54 016542 0065 1 ASL R1 STYPE THIS MESSAGE? 
55 016544 103013 BCC 8$ : PIC bye 
Bae tate oe | OS ae 
58 016552 at 001231 TYPE  ,S$CRLF YES 
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SoOoooooooooocooooeo 
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AAAAAQ 
WRISTS JISSS 
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AAAAAAAAA CO 
SN 
SSS 


SesssRzesesss 
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oooo 


te ee ee 
ee eb wee eh ed eh et ts ds met =? 


SUN 0 ON 


as 
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Ron 
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13 


PFE 
PFECHI : : 
123. PFECH2: 


0 

R1 

OS NKS2 
ss 

E75 

66$ 

4)/ 

(RO) +,10$ 
11$ 
-SCRLF 


(RO), R4 


ds 
@(R1)+,=(SP) 


15$ 


a(R1)+,-(SP) 


R3 
Ve nse 
133 


oSeRLF 
RS 


‘ams? 18$ 


PrECH H1 PFECH2 
SCIZ ?POWE 
“ASCH? 2TEST 


:MESSAGE POINTER GOES HERE 
[MORE TO TYPE? 
*NO=-BRANCH 

3TYPE 2 BLANKS 

‘BRANCH H IF NOT FINISHED 

:;TYPE ASCIZ STR 

t:GET OVER THE ASCIZ 

zPICK UP DATA HEADER (DH) POINTER 
CARRIAGE FRE TURNGL INE FEED 


3"DH"* POINTER GOES HERE 
[PICKUP DATA TABLE (DT) POINTER 
IF NONE 


BRANCH 

zSET ee SWITCH 

DATA FORMAT (DF) POINTER 
sNUMBER OF DH'S TO TYPE 
BRANCH in DH NUMBER IS 0 


7NO_INDEN 

3 CARRIAGE g itrye i FEED 

[NUMBER OF DATA WORDS TO TYPE 
Fo TYPE THEM 


SAND HOW 

SOCTAL OR DECIMAL? 
:DECIMAL=-BRANCH 
3 SAVE @(R1)+ FOR TYPEOUT 

7:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
3 SAVE a(R1)* FOR TYPEOU 
£260 TYPE=-DECIMAL ASCII "wim SIGN 
shore NUMBERS TO TYPE? 

STYPE 2 BLANKS 

LOOP 
;MORE_DH* s? 
:YES--START A NEW LINE 

Z INDENT 


CH 
PE 2 BLANKS 
Ger NEXT DH 


TYPE IT 
20H POINTER GOES HERE 
fis RETURN-LINE FEED 
3 INDENT 
: TYPE 2 BLANKS 
; LOOP 
ERESTORE RO - RS 


“WORDS DEFINING TABLES BELOW 
I IN pill CPU, ERROR REGISTER FOUND SET? 
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7 


110 EVEN 

111 0171 171146 001132 016332 PFECH3: .WORD PFTSTN,SERRPC,CPSAVE,0 

iN 1711 1 PFECH4: .WORD 1 :MRBER OF DATA HEADERS 

113 01711 3 “BYTE R OF WORDS IN DATA TABLE 

114 01711 “BYTE ALL 3 NUMBERS ARE OCTAL 

115 017114 o00sne PFTSTN: .WOR zALL 3 NU TEST NUMBER FOR PF BIT ERROR 


SEQ set 






TYPE ROUTI 
1 












rm — 
NO 


SISVSLSLECSSR 


SRS 


RS 


Wns 


AMIS 


Sones 


001173 


000002 
000001 


000100 


017166 
015434 


000040 


000002 
000011 
000200 


017446 
1733 
bori72 
001170 


000001 


17330 
17446 


001254 
001255 


001255 
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SEQ 0086 






-SBTTL TYPE ROUTINE 


SROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH AO. 





 SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
S*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER Py LINE FEED. 
: *NOTE1: SNULL CONTAINS THE CHARACTER 10 BE USED AS THE FILLER CHARACTER. 
: *NOTE SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3 *NOTE SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
7 *CALL 
:*1) USING A TRAP INSTRUCTION 
_. f s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3% TYPE 
3* MESADR 
3% 
$TYPE Tse STPFLG 3321S THERE A TERMINAL? 
HALT - EaMaiyetere IF NO TERMINAL 
1$: MOV RO,-(SP) *SAVE RO 
MOV acisP) RO 22GET ADDRESS OF ASCIZ STRING 
CMPB APTENV,SENV :: RUNNING IN 
BNE é +:NO,GO CHECK FOR APT CONSOLE 
BITB §§ #APTSPOOL,SENVM :3 SPOOL MESSAGE TO APT 
BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
MOV RO,61$ SETUP AESSAGE ADDRESS FOR APT 
JSR PC.SATY3 +2 SPOOL MESSAGE TO APT 
61$:  .WORD t:MESSAGE ADDRESS 
62$: BITB #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
BNE 6 Z:YES,SKIP TY T 
2s: MOVB (RO) +,=(SP) 33PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ “<BR IF IT ISN'T THE T 
TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
60$: MOV (sP)e ek SRESTORE R 
3$: ADD ashe” :FADJUST RETURN PC 
4$: CAPS press BRANCH IF <HT> 
cps #CRLF , (SP) : BRANCH IF NOT <CRLF> 
TST (SP)+ ::POP <CR><LF> EQUIV 
TYPE t:TYPE A CR AND L 
CLRB  $CHARCNT :CLEAR CHARACTER COUNT 
BR tIGET NEXT | CHARACTER 
5$: JSR PC, S$TYPEC 7:G0 TYPE THIS CHARACTER 
6$: CMPB so SFALLC,(SP)+  ::1S IT TIME FOR FILLER CHARS.? 
BNE t:1F NO GO GET 
MOV SNULL (SP) *:GET # OF efLeR” CHARS. NEEDED 
SZAND THE NULL CHAR. 
7$: DECB«—s«1 (SP) *:DOES A NULL NEED TO BE TYPED? 
BLT AS *:BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, S$TYPEC *:G60 TYPE A NUL 
DECB $CHARCNT $300 NOT COUNT AS A COUNT 
















HORIZONTAL TAB PROCESSOR 





17 itera 8$: MOVB ; sREPLACE TAB WITH SPACE 
17310 030 9$: JSR i $y Pec ::TYPE A SPACE 
O17 6 13 3 017446 Bie ‘ SCHARCNT 3 BRANCH IF NOT AT 
017324 ie TST Pepys +:POP SPACE OFF STACK 
O73 000724 snes 2$ 7:GET NEXT CHARACTER 
01 105777 161624 TSTB asTKs CHAR IN KYBD BUFFER? 
O17 1o09ee BPL 33BR IF NOT 
17 017746 161620 MOV [GET CHAR 
01 042716 177600 BIC Hs *Sp) + ISTRIP EXTRANEOUS BITS 
01 122716 CMPB Os MSXOFF,, (SP) t:WAS CHAR XOFF 
017352 001012 BNE ioe ::BR IF 
017354 101$: 
017354 105777 161600 TSTB = @STKS s;WAIT FOR CHAR 
017360 100375 BPL 
017362 117716 161574 MOVB  a$TKB, (SP) ::GET CHAR 
017366 042716 177600 BIC #177600,(SP) ::STRIP IT 
017372 122716 000021 CMPB so SXON, (SP) s:WAS IT XON? 
017376 001366 BNE 101$ ::BR IF NOT 
017400 102$: 
017400 005726 TST (SP)+ z3FIX STACK 
017408 10S: 
017402 105777 161556 TSTB = aS TPS zzWAIT UNTIL PRINTER IS READY 
017406 100375 BPL 10$ 
017410 116677 000002 161550 MOVB BSP), asiPB z:LOAD CHAR TO BE TYPED INTO DATA REG. 
017416 122766 000015 000002 CMPB ss: ACR, 2( SP) 3318 CHARACTER A A CARRIAGE RETURN? 
017424 001003 BNE 
017486 105037 017446 CLRB § $CHARCNT $EYES@=CLEAR CHARACTER COUNT 
017432 000406 BR STYPEX T 
017434 122766 000012 000002 1S: CMPB es LF, O( SP) ii15 CHARACTER A LINE FEED? 
017442 00140 BEQ STYPEX CH IF YES 
017444 10522 INCB = (PC) 4 * COUNT rhe CHARACT ER 
017446 000000 SCHARCNT:.WORD 0 +: CHARACTER COUNT STORAGE 
01 STYPEX: RTS PC 


ov 


F==2S 
RUSS 
Om 


eh me ed ed ed eed od od = = 
~“N “ ~ 
w 
-Co00——2— 
ceed ead ad ed ed a 
Woe xaae 


papery 
So==s8 
ssesseciies 


RY 
NS 
S= 
— 

So 


3s 
35 


x 


3 
sess 


ened ek wd ed ed ed eed St oS = = 
W= I 


Sooooooo 
re 
ab a 
eNO 


K 7 
T4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 20 SEQ 0088 
11) AND TYPE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


pRARAeeeeeneeeeeKAeeeeeteeeeeeeeaneKeAKeKeenentaeeeeneeeenenee 

z*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

gi nea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


371=TYPE LEADING ZEROS 
320=SUPPRESS LEADING ZEROS 


& 
3 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
: this OR $TYPOC 


2*C 

3* MOV NUM,=(SP) 3; :NUMBER TO BE TYPED 

3* TYPOS 3:CALL_FOR TYPEOUT 

3* -BYTE N 33N=1 TO § FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE & 33M=1 OR 

3* 

;* 


3* MOV NUM, =-(SP) s NUMBER TO BE TYPED 
:* TYPON s:CALL FOR TYPEOUT 
3* 
a HERE FOR TYP=OUT OF A 16 BIT NUMBER 
3* MOY NUM, (SP) : NUMBER TO BE TYPED 
38 TYPOC szCALL FOR TYPEOUT 
646 000000 STYPOS: MOV a(SP) ,-(SP) zzPICKUP THE MODE 
37 000001 017675 MOVB 1(SP) ,SOF ILL z:LOAD ZERO FILL SWITCH 
37 017677 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ane 000002 ~ AL : ADJUST RETURN ADDRESS 
737 000001 017675 S$TYPOC: MOVB #1, SOF ILL zzSET THE ZERO FILL SWITCH 
737 000006 017677 MOVB #6, S0MODE+1 szSET FOR SIX(6) DIGITS 
737 000005 017674 S$TYPON: MOVB #5, S0CNT 3:SET THE ITERATION COUNT 
0346 MOV R3,~(SP) s2SAVE RS 
0446 MOV R4,~(SP) Z2SAVE R4 
546 MOV RS,-(SP) szSAVE R 
4 94 017677 _ SONGS +1 is ::GET THE NUMBER OF DIGITS TO TYPE 
704 000006 ADD #6,R4 zs ;SUBTRACT IT FOR MAX. ALLOWED 
37 017676 MOVB R4,SOMODE z:SAVE IT FOR US 
704 017675 MOVB SOFILLR4 7:GET THE ZERO FILL SWITCH 
6605 000012 MOV Le tars oR ::PICKUP THE INPUT NUMBER 
5003 CLR R 33CLEAR THE OUTPUT WOR 
105 1$: ROL AS : ROTATE MSB INTO ‘'C 
04 BR 3$ a3 0 MSB 
105 2$: ROL RS ::FORM THIS DIGIT 
105 ROL RS 
105 ROL R 
503 MOV R5,R3 
103 3$: ROL R3 3:GET LSB OF THIS DIGIT 
337 017676 DECB SOMODE sz TYPE THIS DIGIT? 
16 BPL 7$ 72BR_ IF NO 
703 177770 BIC #177770,R3 3:GET RID OF JUNK 
002 BNE 4$ sz TEST F 
704 TST R4 3::SUPPRESS THIS 0? 
403 BEQ 5$ 33 
204 4$: INC R4 ::DON'T SUPPRESS ANYMORE 0°S 





An 
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BINARY TO 0 
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AND TYPE 
000060 


ae 
17674 


000002 000004 


5$: 


7$: 


6$: 


8$: 
OCNT: 


¢ 
SOFILL: 
SOMODE : 


Sts). “Eisp) 
(SP) +, (SP 


oQoooo 


SEQ 0089 


33MAKE THIS DIGIT ASCII 

3 sMAKE oaett IF NOT ALREADY 
33SAVE FOR TYPING 

360 TYPE THIS DIGIT 


OUN 
BR 4 MORE TO DO 


E 
: FINSURE LAST DIGIT ISN'T A BLANK 
3360 + A LAST DIGIT 


ESTORE R3 
SISeT THE STACK FOR RETURNING 
RETURN 
: STORAGE FOR ASCII DIGIT 
33 TERMINATOR FOR TYPE ROUTINE 
; COUNTER 


33ZERO FILL SWITCH 
33NUMBER OF DIGITS TO TYPE 


om 
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~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


STHIS ROUTINE 1S USED TO ¢ HANGE A 16-BIT BINARY NUMBER TO A S-DI 


=—COoooo0oe 
223 
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RISSNVSNE 

SSSSussss 
M—=NWW Ww 
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Nm 


S8228=28=8 


wn 
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000774 


020200 
000020 


000055 
020114 
000040 


000001 


020104 


000001 177777 
000060 
000040 


000010 


177777 177776 


See ne WITH SPACES. 


3*CALL: 


3* MOV 


s@ TYPDS 


STYPDS: 


B 
8$: TSTB 


9$: CLRB 


NUM, =(SP) 


RO,=(SP) 


1(SP) 


-1(R3) 
0,R2 


(SP)+ 


oR 
(SP)+,R 


SEQ 0090 


Y NUMBER TO A 5-DIGIT 


33PUT_THE BINARY NUMBER ON THE STACK 
3360 TO THE ROUTINE 


33PUSH RO ON STACK 
33PUSH R1 ON STACK 


2 

s 

awn 

ane 2 2% 

AHHONNH 
oad i 
~"— 


INPUT 
T 


UP THE OUTPU NTER 
3356 THE FIRST CHARACTER TO A BLANK 
THE te Pe apace 


$36ET THE CONSTAN 
FORM THIS BCD DIGIT 


7:BR IF DON 
INCREASE THE BCD DIGIT BY 1 


33ADD BACK THE CONSTANT 
23 CHECK IF BCD DIGIT=0 


L THROUGH I 
SISTILL DOING LEADING 0°S? 
33BR IF YES 


2BR IF NO 
EEVES=-SET 7 HE SIGN 
33MAKE THE Ay’ DIGIT ASCII 
; PACE ie NOT ALREADY A DIGIT 
R IN THE OUTPUT BUFFER 


:EVES--SET THE SIGN FOR TYPING 

33SET THE TERMINATOR 

his STACK INTO R 

+ POP STACK wie R 
STACK 0 Re 

7:POP STACK INTO R1 


om 
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020130 
000060 
000062 


160756 


001154 


020124 


-SBTTL TTY INPUT ROUTINE 


{RRMA AARERARERAAAAAAAEAERERERAARERERERARARERARARARARRERRARRE ERE 


-ENABL LSB 
STKCNT: .WORD 3 ;NUMBER OF irons IN QUEUE 
STKQIN: .WORD 33 INPUT POINTER 
KQOUT: ;;O0UTPUT POINTER 
LSS al -BLKB zzTTY KEYBOARD QUEUE 
= 


stn INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


teCALL: 


3* JSR PC, S$TKINT 
i* RETURN 
$TKINT: CLR STKCNT :CLEAR COUNT OF ITEMS IN QUEUE | 
MOV #STKOSRT ,STKQIN : HOVE THE STARTING ADDRESS OF THE 
MOV KQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV WSTKSRV, @ATKVEC t INITIALIZE THE KEYBOARD VECTOR 
MOV #200, @ATKVEC+2 :: LEVEL 4 
TST a$TkB 33 Peant DONE FLAG 
MOV #100, a8TKS T:ENABLE TTY KEYBOARD INTERRUPT 


RTS 7ZRETURN TO CALLER 
3*TK SERVICE ROUTINE 


[THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
>*BY ei INTHE QUEU HE repaid FROM THE INPUT BUFFER AND PUTTING 


edie MOVB  a$TKB,-(SP) ::PICKUP THE CHARACTER 
BI JUNK 


C #°C177, (SP) t:STRIP THE 
CMP (SP) ,#$XON 21S IT A RANDOM XON? 
BNE 0$ i: F NO 
TST (SP)+ 7:¢ CLEAN RANDOM XON OFF STACK 
en RTI + ;RETURN 
CMP (SP) #3 z:1S 17 A CONTROL C? 
BNE + BRANCH IF NO 
TYPE $CNTLC t:TYPE A CONTROL-C (“C) 
JSR PC, $TKINT T:INIT THE KEYBOARD 
TST (SP)+ *:CLEAN UP STAC 
JMP SHUT :: CONTROL C RESTART 
1$: CMP (SP) ,#7 t:1S IT A CONTROL G? 
BNE *:BRANCH IF NO 
CMP ASWREG, SWR *:1S SOFT=SWR SELECTED? 
BEQ 6$ +:G0 TO SWR CHANGE 
2$: 
CMP #1, $TKCNT ::1S THE QUEUE FULL? 


BNE ae 
TYPE -$BELL 33RING THE TTY BELL 
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020 5726 TST (SP)+ z3CLEAN CHARACTER OFF OF STACK 

020 1 BR 58 T 

02031 1627 000023 3$: CMP (SP) #23 HIS ITA CONTROLS? 

020314 001021 BNE 32$ ‘BRANCH 

020 1 005C°7 160636 CLR a$sTks :ZDISABLE Try KEYBOARD INTERRUPTS 

020 005 36 TST (SP) + +: CLEAN CHAR OFF STA 

020324 105777 160630 31$: TST TKS 33WAIT FOR A CHAR 

0 03 100 75 BPL 1$ SLOOP UNTIL ITS THERE 

020 117746 160624 MOVB asks =(SP) 33 T THE CHARACTER 

0203 042716 177600 BIC #°C177, (SP) MAKE IT 7-B1T ASCII 

9 034 0 27 000021 CoP (SP)+,#21 3318 IT A A CONTROL-0 

0 $356 12777 000100 160602 MOV #100, aSTKS 3: REENABLE TTY KEYBOARD INTERRUPTS 

020356 2 RTI 

920360 itt 020124 32$: INC $TKCNT 33 COUNT THIS CHARACTER 

020364 021627 000140 CMP (SP) ,#140 t:IS IT UPPER CASE? 

020370 002405 BLT ::BRANCH IF YES 

020372 021627 000175 CMP (SP) #175 1S IT A SPECIAL CHAR? 

020376 003002 BGT 3: H IF YES 

020400 042716 000040 BIC #40, (SP) t:MAKE IT UPPER CASE 

020404 112677 177516 4$: MOVB (SP5+,a$TKQIN ::AND PUT IT IN QUEUE 

020410 005237 020126 INC $TKQIN ‘UPDATE THE POINTER 

020414 023727 020126 020133 CMP STKQIN, #STKQEND 3360 OFF THE END? 

020422 001003 BNE SBRANCH IF NO 

020424 012737 020132 020126 MOV WSTKOSRT.STKQIN 2:RESET THE POINTER 

020432 000002 5$: RTI + :RETURN 
{RRRAARAAARAERRARREERERERERERARRRERARERERERRRRRRRRRRERERERAERRERS 
TSSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
grCaLt L WHEN OPERATING IN TTY INTERRUPT MODE. 

020434 022737 000176 001154 $cKS ASWREG, SWR s31S THE SOFT-SWR SELECTED 

020442 001124 * oe 15$ 3 F NOT 

020444 105777 160510 TSTB asiks t:1S A CHAR WAITING? 

020450 100121 BPL S:1F NOT, EXIT 

020452 117746 160504 MOVB ay -(SP) 33YE 

020456 042716 177600 BIC wel i (SP) MAKE IT 7-BIT ASCII 

020462 021627 000007 CMP EIS IT A CONTROL=G? 

20466 001300 BNE t:IF NOT, PUT IT IN THE TTY QUEUE 
T:AND EXIT 

See eee e tee eeen Th THIS POINT FROM EITHER THE TTY INTERRUPT S 
SSCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
senur IN OR chon TYPED.” AND THE” SOFTUARE. SMITCH REGISTER BEING SELECTED . 

020470 123727 001150 000001 és: CMPB = H :ARE WE RUNNING IN AUTO-MODE? 

020476 9016 4 BEQ $ + :BRANCH IF YES 

020500 005 25 TST (SP) T:CLEAR CONTROL=G OFF STACK 

020502 737 020134 JSR PC STKINT 33FLUSH THE TTY INPUT 

920506 5077 160446 CLR LE TTY KEYBOARD INTERRUPTS 

020512 112737 000001 001151 MOVB 3s #1, SINTAG tISET INTERRUPT MODE INDICATOR 

020520 104401 021 TYPE  ,$CNTLG .  $3ECHO THE CONTROL-G (*G) 

020524 104401 1369 $GTSWR: TYPE SMSWR . 33 TYPE CURRENT CONTENTS 

0205 015766 176 MOV SWREG,-(SP) *SAVE SWREG FOR TYPEOUT 

020534 10440 TYPOC 7:G0 TYPE--OCTAL ASCII(ALL DIGITS) 





al 


=—0ooO 2 —— 
= 
=a— TON 
“Nu OW 
=A of N“N 
=—IN AA UINAO— 


4 
NEO 


NES 


on 
Sue 
MW 


S 


SSSsx 
party Perper 
enon 

VESNY 

NWOnn 


z 


esuee 
Sexes 


Sees 
N= 
oan 
Qunonnrn 


[=] 
rn 
= 


SS3ssszs 
SoeeosNe 


z 


NO 


sy 
Se 
No 
o=— 


021376 


198: 


7$: 


9$: 


20S: 


10$: 


a$TKB,-(SP) 
#°C177, (SP) 


(SP) ,#3 
9$ 

SCNTLC 
SINTAG,#1 
#100, a$TKS 
SHUT 


(SP) ,#25 


#100,a$TKS 


PC, S$TYPEC 
(SP) ,#60 


(SP) ,#67 


#60, (SP)+ 
(SP) 


( 
2(SP) 
=2(SP) , (SP) 


ane 


SEQ 0094 


:;PROMPT FOR NEW SWR 

T:CLEAR COUNTER 

33 NEW SWR 

S:CHAR THERE? 

*:IF MOT TRY AGAIN 

z3PICK UP CHAR 

T:MAKE IT 7-BIT ASCII 

ssIS ITA CONTROL ~C? 

YES, ECHO CONTROL-C (*C) 
T:CLEAN UP STACK 

; SREENABLE TTY KEYBOARD INTERRUPTS? 
S:ALLOW TTY KEYBOARD INTERRUPTS 
7: CONTROL=C RESTART 


3318 IT A CONTROL-U? 

; «BRANCH 

32YES, ECHO CONTROL-U (“U) 
ae E PREVIOUS INPUT 
s3LET'S TRY IT AGAIN 


3318 IT A <CR>? 


H 
33YES, IS IT THE FIRST CHAR? 
CH IF YES 


E NEW SWR 
33CLEAR UP STACK 
33ECHO <CR> AND <LF> 


BRANCH IF YES 
*:STRIP=OFF ASCII 
i318 THIS THE FIRST CHAR 


33 IN NEW 

3:GET THE NEXT ONE 
si TYPE 2?<CR><LF> 
s:SIMULATE CONTROL-U 


{FARRAR AAAAAAAAAAAARARAAAERAAERARERAAARERAERERRERAAAERAAARERAERE ES 


E 
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rrr 
So 
> 
on 


MIPOPOPIMOPOPONY 
&- 


dad ad td dd 
COoooooo 


FSS 


CooCoooooooeoo 


MIP 


oooo 
~ 


ooo 
MIPORS 
— 
Ss $F 
NP} 


MPUPUMOPUNONYD 
ed ad ad td od ot 


pReyusRspuneerceese 


ed eh oe 


POPOPOPMONONNOPY 


ee ek et eR eB eh ed ed td 


xe 


CSOOSSSOSSOOSSOOSOOoSo ooo 


ee a eek ed ee eh ed ed 


Sus 


RPoPoMonofononony 


; RDCHR ::GET A CHARACTER FROM THE QUEUE 
ie RETURN HERE T:CHARACTER IS ON THE STACK 
:* 7:WITH PARITY BIT STRIPPED OFF 


SRDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC AND 
000004 000002 MOV 4 (SPS ,2(SP) 33 
000004 CLR 4(SP) +:GET READY FOR A CHARACTER 

CLR -(SP) +:PUT NEW PS ON STACK 
021022 MOV #64$,-(SP) 7:PUT NEW PC ON STACK 
_ RTI t:POP NEW PC AND PS 

020124 1$: Ist STKCNT zzWAIT ON A CHARACTER 
020124 DEC STKCNT :;DECREMENT THE COUNTER 
177070 000004 MOVB  a$TKQOUT,4(SP) :;GET T 
020130 - INC. — $TKQOUT T:UPDATE THE POINTER 
020130 020133 cw STKQOUT .#STKQEND +:DID IT GO OFF OF THE END? 
020132 020130 Moy #STKOSRT STKQOUT’ ; ;RESET THE POINTER 


: ee 
© RARAAAAARAAERAERAAKAREREEREEERARAERREARAEEREEAEEERRERRREERRERRERERER 


i STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


* RDLIN szINPUT A STRING FROM THE TTY 
* RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
* t: TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) r2SAVE R3 
LR - T:CLEAR THE RUBOUT KEY 
021322 1$: MOV #STTYIN,R3 [:GET ADDRESS 
021346 23: CMP. #STTYIN+20.,R3 ::BUFFER FULL? 
BLOos }6=s« 4$ [:BR IF 
RDCHR +:G0 READ ONE CHARACTER FROM THE TTY 
MOVB = (SP) +, (R3) *:GET CHARACTER 
000177 10$:  CMPB #177, (R3) 7:I1S IT A RUBOUT 
BNE 5$ 7:BR IF NO 
TST (SP) +:I1$ THIS THE FIRST RUBOUT? 
BNE 37BR IF 
000134 021320 MOVB so" \,9S +: TYPE A BACK SLASH 
21320 TYPE , 
1777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
6$: DEC R BACKUP BY ONE 
021322 cn R3,ASTTYIN iE STACK EMPTY? 
0 1320 MOVe = (R3),98 +:SETUP TO TYPEOUT THE DELETED CHAR. 
0213 TYPE o$ 32:60 TYPE 
BR b$ +:GO0 READ ANOTHER CHAR. 
5S: TST (SP) ::RUBOUT KEY SET? 
134 021320 Bove #98 12OR OE ANBACK SLASH 
999320 1 es 


(SP) ::CLEAR THE RUBOUT KEY 
000025 7$: CMPB 0 so#25,, (R3) t:IS CHARACTER A CTRL U? 
8$ =:BR IF NO 


COOOSooOSoOoOOOSOOoOOoOoOOoOO 
par rr or ar Sar Sarr rr er 


tt os os 0 ot I J 


oooooo 
im 


MIMSY! 


—b ad —S —s 
FSS 
S+oowwns 

o— tt = IO 
td IS LAAN 


2s 
ene 


~ 


3 


oONnow— 


— 
J 
—? 


eccess28x3 
=m 
$ AIA Wi NIP 


o--— 
SRS 


2 
ou 


WWWOWwW 
ANNNION 


021353 
000022 


se 
001230 
021320 

i 
177777 
001232 


021322 


003312 
001330 
015142 


4$: 
3$: 


9$: 


STTYIN: 


TYPE 


(R3) .9$ 
#15, (R3)+ 
=1(R3) 


(SP) ,- 
4 (SPS ,2(SP) 


#STTYIN,4(SP) 


/*C/<15><12> 
/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = f 
/ NEW = / 


ar42 


1$ 
START2 
DRVSEL 
SEOP 


zz TYPE A CONTROL ‘U"’ 
33G0 START OVER 
21S CHARACTER A ‘*R’'? 


CH_IF NO 
Z:CLEAR THE CHARACTER 
ee gl Ge f° 


ee NPUT STRING 
33G0 PICKUP ANOTHER CHACTER 
;3;TYPE A_*?° 


33CHECK FOR RETURN 

3:LOOP IF NO URN 

33CLEAR RETURN (THE 15) 

ss TYPE A LINE F 

3;CLEAN RUBOUT KEY FROM THE STACK 
3sRESTORE R 

zzADJUST THE STACK AND PUT ADDRESS OF THE 
ze FIRST ASCII CHARACTER ON IT 

3 sRETURN 

ZzSTORAGE FOR ASCII CHAR. TO TYPE 


3:7 
ZERESERVE 20,, BYTES FOR TTY INPUT 


sANY oe PRESENT ? 


2BR 

3G0 TO "START2' 

3FUDGE NO DRIVES SELECTED 
RETURN CONTROL TO MONITOR 
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1 -SBTTL SCOPE HANDLER ROUTINE 


s  eeeeeneeateeneeeneeneerenteeeeeneeatanteeteeneaneeeeeatreteee 
:STHIS ROUTINE Sonne s THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
: SAND LOAD a T NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
3 *AND tOAD.T HE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
0TH > ous PROVIDED BY THIS ROUTINE ARE: 


TEST 
7*SW11=1 CNAIBIT ITERATIONS 
:*S$w09=1 LOOP ON ERROR 
;*CALL 
* SCOPE ::SCOPE=10T 
0214 SSCOPE: 
021432 104407 CKSWR ssTEST FOR CHANGE IN SOFT-SwR 
021434 032777 040000 157512 18: BIT #B1T14,aSWR 33LOOP_ON PRESENT TEST? 
021442 001402 BEQ 9$ F SWi4= 
01444 022014 sine JMP SOVER +2 JUMP OVER SCOPE ROUTINE 
:AHAKASTART OF CODE FOR THE XOR TESTER####A 
021450 000416 $xTSTR: BR 65 331F RUNNING ON THE XOR': TESTER CHANGE 
THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
021452 013746 000004 MOV @#ERRVEC,-(SP) $ESAVE THE CONTENTS OF THE ERROR VECTOR 
021456 o1273 021476 000004 MOV W5$,QMERRVEC © 3SET FOR TIMEOUT 
021 005737 177060 TST a#177060 OUT ON XOR? 
021470 012637 000004 MOV (SP) +, @#ERRVEC : ERESTORE THE ERROR VECTOR 
021474 000531 BR SSVLAD :G0 TO THE NEXT TEST 
021476 022626 5$: CMP (SP)+, (SP)+ ‘OP eAR THE STACK AFTER A TIME OUT 
021500 012637 000004 MOV (SP)+,aMERRVEC ;3RESTORE THE ERROR VECTOR 
021504 000474 BR 7$ “LOOP ON THE PRESENT TEST 
021506 $$: :AMAAREND OF CODE FOR THE XOR’ TESTERAAAMA 
021506 105737 001117 $: STB SERFLG z3HAS AM ER RROR OCCURRED? 
031314 022737 177777 016332 CMP #-1, CPSAVE 33SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
021522 001455 BEQ [KICK AROUND ROUT 0 
021524 013746 900004 MOV ERRVEC,-(SP) ZISAVE CONTENTS OF Penon VECTOR 
0215 01273 1546 MOV #2000$,ERRVEC ::SETUP ‘TRAP’ RETURN ADDRESS 
9 1336 013737 177766 SPSAE: mov ; CPSAVE ; {MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
021546 Oier3e 177777 016332 2000S: MOV 1, CPSAVE s:SET CPU ERROR REGISTER TIMEOUT INDICATOR 
021554 012716 021562 MOV #20018 (SP) :SETUP RETURN ADDRESS 
021560 909002 RTI 
021 12 000004 2001$: MOV (SP)+,ERRVEC § ; RESTORE CONTENTS OF ERROR VECTOR 
0 1566 22737 17777, 016332 20028: CMP el ;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
021574 0014 BEQ ::BRANCH IF SO 
021576 737 000001 016332 BIT .CPSAVE ::SEE IF THE POWER MONITOR BIT IS ON 
0 1604 001424 BEQ BRANCH TO CONTINUE ROUTINE IF CLEAR 
1606 737 177766 BIC #81T00.177766  ::CLEAR THE BIT FOUND TO BE SET 
0 1614 013746 001154 MOV -(§P) TISAVE SWR ADDE:ESS 
1620 01 $46 MOV a(sb) =(SP) S:SAVE SWR VALUE 
021624 012 37 176 001154 MOV »SWR *:GET SOFTWARE SWR ADDRESS 
0216 116 1 137316 MOV (SP) ,9SuR 7:GET CURRENT SWR VALUE 
0216 2 ad 157310 BIC iT »@SwR +:DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
1644 104177 EMT 1 T:CALL SPECIAL POWER FAIL BIT ERROR CALL 
1 12676 900000 MOV (SP)+,a(SP) T:RESTORE SWR TO ORIGINAL VALUE 
1652 01263 1154 MOV (SP) +. SWR S:RESTORE SWR ADDRESS 
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S=s2S8 
aNNNNNNNNN EN 


ee ee ee ed ce ed ed ee ed ed ced ed ed ed ed ed ed ed 
LY, Dime a bel 


SAFERES 


Se=ae 


Win 


oo=— 
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; RMAX , SERFLG 
#81T09,aSWR 
SLPERR ,SLPADR 
SOVER 


SERFLG 
STIMES 


#81711 SUR 
SICNT 

STIMES ,SICNT 
SOVER 
#1,$I1CNT 
SMXCNT ,STIMES 
TSTNM 
STSTNM, STESTN 
(SP) , SLPADR 
(SP); $LPERR 
SESCAPE 
#1,$ERMAX 
$TSTNM, @DISPLAY 
SLPADR. (SP) 


S FOR THIS TEST OCCURRED? 


OOP ADDRESS TO LAST SCOPE 


NUMBER OF — TO MAKE 


ITERATION COUNT 
NUMBER OF ITERATIONS MADE 


EQUIRE 
RATION COUNTER 
: TIONS TO DO 
NUMBER IN APT MAILBOX 
SCOPE to ADDRESS 


ROR 
— ON NEXT TEST 


I 
MACRO V04.00 15-JAN-82 07:05:59 PAGE 24 SEQ 0099 


SS 
FOS 


oS mM 
EEEe 
Oo 
ZF 
AAA 


MOPIPOPOPOPONY 
oe 
ro 


ay 
z 
3333 


esccssssssss 


horonror 


: 
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—b 


MIPIM 


SESEE 


SOooooooooeo 
See 


~SBTTL SAVE AND RESTORE RO-R5 ROUTINES 
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be ot RO-R5 

3* SAVREG 

: UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

ed seme 4 + 

3* +2e<-(+18) 

gt +4--eR5 

;* + ~==R4 

3* oa as 

341 

3%412---R1 

3%414---R0 

SSAVREG: 
MOV RO,-(SP) 7zPUSH RO ON STACK 
MOV R1,-(SP) :2PUSH R1 ON STACK 
MOV R2,~(SP) :2PUSH R2 ON STACK 
MOV R3,-(SP) 33PUSH ON STACK 
MOV 4,-(SP) 72PUSH R4 ON STACK 
MOV (SP) 32PUSH RS ON S 
MOV 2(SP) ,-(SP) :2SAVE PS OF MAIN FLOW 
MOV ts Shab 5 sSAVE PC OF MAIN FLOW 
MOV (SP) ,-(SP) s2SAVE PS OF CAL 
MOV 2(SP) ,-(SP) zzSAVE PC OF CALL 
RTI 

s*RESTORE RO-RS 

3*CALL: 

. RESREG 

SRESREG 
MOV (SP)+,22(SP) s RESTORE PC OF CALL 
MOV (SP)+,22(SP) szRESTORE PS OF CALL 
MOV (SP)+,22(SP) sRESTORE PC OF MAIN FLOW 
MOV (SP)+,22(SP) sRESTORE PS OF MAIN FLOW 
MOV (SP)+,R 33 STACK INTO R 
MOV (SP)+,R4 33 STACK INTO R4& 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+,R2 3::POP STACK INTO R2 
MOV (SP)+,R1 :2POP STACK INTO R1 
MOV (SP)+,RO ::POP STACK INTO RO 


ooooooo 
rorororornrn 
fRoronononenoen’ 


022174 
022176 


022210 


ecces 
Ww 
NVOAO 


000002 


022162 


000004 000002 
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-SBTTL TRAP DECODER 


peer eee eee eee ts men GHEE ae tae "anee™ tnteenrtt 


THIS ROUT eit PICKUP THE LOWER BYTE OF a *"TRAP’’ I 





SEQ 0100 


NSTRUCTION 
STARTING ADDRESS 


;*AND_USE INDEX THROUGH THE TABLE FOR THE 
3 #0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


STRAP: 


MOV 


MOV 
RTS 


RO,-(SP) 
fk RO 


=(RO 
alt RC 
STRPAD(RO) ,RO 
RO 


@ ;;SAVE R 


RO 
23GET TRAP ADDRESS 


SiGeT i} BYTE OF TRAP 
2 sPOSIT ION FOR ee 


2 INDEX TO TABL 


7:60 TO ROUTINE 


zzTHIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


33MOVE THE PC DOWN 
3 cmos THE PSW DOWN 
ssRESTORE THE PSW 


STRAP2: 


- SBTTL 


MOV (SP) ,=(SP) 
MOV 4(SP5 ,2(SP) 
RTI 

TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD 2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
STYPOC ::CALL=TYPOC Teabs$19608 ) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
YPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS :;CALL=TYPDS Rap s$¢ 106405) TYPE DECIMAL NUMBER (WITH SIGN) 
SGTSWR ;;CALL=GTSt’? § TRAP+6(104406) GET SOFT-SWR SETTING 
SCKSWR ::CALL=CKSWR §_TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
DC ::CALLERDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ::CALL=RDLIN TRAP#11(104411) TTY TYPEIN STRING ROUTINE 
SSAVREG ? CALL=SAVREG Lae tj 0419) SAVE RO-R5 ROUTINE 
SRESREG ::CALL=RESREG TRAP+13(104413) RESTORE RO-R5 ROUTINE 


C 
) 


000008 022242 
02224 

022246 

000005 

000002 


000000 
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SEQ 0101 


~SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


FRARRARRARRARRRERARERERERERARERARRAERAEREREREREERERARERARAERER EERE 


:*THIS ROUTINE WILL cowyen a _ UNSIGNED BINARY NUMBER TO AN 


st 
:* 


$SB2D: 


1$: 


MOV 
JSR 
RETUR 


WORD 


UNSIGNED DECIMAL ASCIZ NUMB 


SeCALL 


NUMBER, ~ (SP) 
PC ,a#$SB2D 


2(SP),1$ 


& 
(SP)+, 2(SP) 
O° 0 


:;PUT BINARY NUMBER ON THE STACK 
:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


33;SAVE BINARY NUMBER 

33SET POINTER 

23 CALL DOUBLE LENGTH CONVERT 
sONLY ALLOW FIVE CHARACTERS 

+ 1PICKUP POINTER 

; sRETURN 
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.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


022246 


02 
0224 
09541 
022014 


2 
a 


000002 
022426 
000002 


z3 


Woo 
nn 


000012 
022356 
022360 


COoOOOoooe 
Se ALA LA be bd 
Sssuss 
aR 
ww 
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SoS 


161502 


w 
oT 
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Sss= 
_ 
Wo’ 
Ww 
Nm 
N 


ah 

332 
Ss 
Sa8 
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zs 


ae 
aS 


SS etey 
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a 


se 
Sse 
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So 


ee 


022344 


SEQ 0102 
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S*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 


*CALL 


® 


° 
Py 
3* 
Py 


$DB2D: 


3$: 


4$: 


STNPWR: 


3 *DECIMAL 
; *PQSITIVE 


JSR 
RETURN 


SAVREG 
v 


#PNTR,=(SP) 
PC, a#$DB2D 


2(SP) ,R2 
#SDECVL RO 
R SP 


# $ 
ASTNPWR RS 
ASTNPWR+2,R5 


aia 
(R5) ,R2 
3$ 

R3 

2s 
(R4)+,R1 
(R4)+,R2 
(R5)+,(R5)+ 
#'O,R 
R3,(RO)+ 
(PC)+ 


1$ 
(RO) + 
PC 


(ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


zzPOINTER TO LOW WORD OF BINARY NUMBER 
33THE FIRST ADDRESS OF ASCIZ 
3231S ON THE STACK 


72SAVE REGISTERS 
3sPICKUP THE DATA POINTER 

33GET ADDRESS OF ‘‘SDECVL'* STRING 
73PUT ADDRESS OF ASCIZ STRING ON STACK 
33PICKUP THE BINARY NUMBER 


33SET UP TO DO 10 CONVERSIONS 
3zADDRESS OF TEN POWER 


33CLEAR PARTIAL 
: SUBTRACT TEN POWER 


32BR IF 


TEN POWER TO LARGE 
33ADD 1 TO PARTIAL 


33MOVE TO NEXT TEN POWER 
33CHANGE PARTIAL TO ASCII 
SAVE IT 


33 NO 
SERESTORE REGISTERS 
2 TE OE09 

331.0E08 

331.0E07 

331.0E06 

331.0€05 

331.0E04 

331.0€03 

331.002 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
oseis edt fe 
022422 900001 1 
sist Si 
SDECVL: .BLKB 12. 


321.0E01 
321.0E00 
RESERVE STORAGE FOR ASCIZ STRING 





SEQ 0103 
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CZ 
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
~SBTTL TYPE NUME®ICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


RRAAAARERAAAARAAAAAAAKEAATAAAKAAAKKAAAKKeAeKeRAKeeeAKAeAteeenee 
TATHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
"7 ag NUMBERS. 


ie 
ze 
3* MOV #NUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
s¢ JSR PC, a#$SUPRS 


022442 010046 SSUPRS: MOV —RO, =(SP) 3SAVE RO 

022444 016600 000004 mov. —4( SP) ,RO :EPICKUP THE POINTER 
022450 105710 1$:  TSTB (RO) 3; TERMINATEOR? 

022452 001403 BEQ = $ 3BR IF YES Sa 
022454 122720 000060 CMPB «#0, (RO)+ S18 THIS AN ASCII "0" 2 
022460 001773 BEQStsé«1S :3BR IF YES | 

022462 005300 28: DEC RO 3 :BACKUP BY 

022464 010037 022472 MOV —RO, 38 3:SAVE FOR TYPING 
022470 104401 TYPE 

022472 000000 3$: WORD 0 SIASCIZ POINTER GOES HERE 
022474 012600 mov = (SP) +, RO 33 

022476 012616 MOV (SP) +, (SP) ZERESTORE THE STACK 
022500 000207 RTS = PC 3 :RETURN 


8 
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RANDOM NUMBER GENERATOR ROUTINE 


Gooecoe 
22 oe 


oon 


PTS SESSSS 


& 
S 


par 
Wis 


SFSINSVSEF 
=VNN—— 


™m 
CGoooeo 


Nm iN 
ANIMA In 
pane Sear Sor Per Pees 


—— 
~m 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


© RRAARERERARARARARAREREEEEEEEAAEERARRARERAARAARERRERERRARARRE RARE 


[*THIS ROUTINE IS A DOUBLE_PRECISION PSEUDO RANDOM NUMBER GENERATOR 
Z*WITH A RANGE OF 0 TO 2(+33)-1. 


s*CALL: 
* JSR PC, SRAND ::CALL THE ROUTINE 
* RETURN +:RETURN HERE THE RANDOM 
* ‘NUMBER WILL BE IN 
3* $3 2 SLONUM 
SRAND: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R2,-(SP) t: R2 ON STACK 
MOV $LONUM,RO t:SET RO WITH LOW 
MOV SHINUM,R1 +:SET R1 WITH HIGH 
MOV #-7,R2 t:SET SHIFT COUNT 
1$: ASL RO ::SHIFT RO LEFT AND 
ROL R1 T:ROTATE CARRY INTO R1 AND 
INC R2 33¢ FOR DONE 
BNE 1$ :: CONTINUE SHIFT LOOP 
ADD $LONUM,RO 72AD R TO MAKE X 129 
ADC Ri + :PROPOGATE CARRY 
ADD SHINUN R1 7:ADD NUMBER TO MAKE X 129 
ADD #1057,R0 S:ADD LOW CONSTANT 
ADC R1 t:PROPOGATE CARRY 
ADD #47601,R1 t:ADD HIGH CONSTANT 
MOV RO, SLONUM t:SAVE RO 
MOV R1.$HI SAVE 
MOV (SP)+,R2 +:POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
V (SP)+,RO +:POP STACK INTO RO 
RTS + :RETURN 
SHINUM: .WORD 543 


1 
SLONUM: .WORD 123456 





C 
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INTEGER DIVIDE ROUTINE 


~SBTTL INTEGER DIVIDE ROUTINE 


peers ee Cane mee 
S*THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 

i #D1V}DEND BY A _16-BIT TWO'S COMPLEMENT Ul DIVISOR oy VING 
3*A_16-BIT Tuo" COMPLEMENT INTEGER QUOTIENT AND A 16-B1T REMAINDER. 
[*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 

sy SIGN AS THE DIVIDEND. 


4 

: 

§ tee 

10 Se MOV LOW DIVIDEND, =(SP) 3; THE HIGH DIVIDEND MUST BE < 1/2 
11 ba MOV DIVIDEND, (SP) t:AS LARGE AS THE DIVISOR 

ig 8 MOV DIVISOR, = (SP 

1 ie JSR PC,$DIV 

14 i RETURN Z;QUOTIENT & REMAINDER ARE ON THE STACK 
16 i* STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

18 ie TOP REMAINDER ALL ZEROS ALL ONES — 

19 3 +2 QUOTIENT ALL ZEROS ALL ONES 

21 * 
2 SeNOTE: THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE ('M.DPID"). 
24 022604 104412 $DIV:  SAVREG sSTORE RO = RS 

25 0 606 016605 000026 MOV 26(SP) RS “DIVISOR 

26 022612 005004 CLR SOTHER DIVISOR WORD 

27 022614 916602 000030 MOV 30(SP), R2 [UPPER DIVIDEND WORD 

28 022620 016603 000032 MOV 32(SP)-R3 SLOWER DIVIDEND WOR 

29 080 4 005000 CLR RO ?CLEAR OTHER DIVIDEND REGISTERS 

30 022626 905001 CLR R1 

31 022630 004737 022652 JSR PCM. DPID :60 TO THE DIVIDE ROUTINE 

Be 022634 010166 000030 MOV 1,30(SP) REMAINDER ON THE STACK 

33 022640 010366 000032 MOV RS’ *32(SP) S QUOTIENT ON THE STACK 

34 022644 104413 RESREG TRESTORE R 

5 022646 012616 MOV (SP)+, (SP) <MOVE RETURN | UP THE STACK 

36 022650 000207 RTS PC 
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000040 


000002 
000002 


000002 


000002 


000004 


000006 


000010 
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SEQ 0107 


.SBTTL DOUBLE PRECISION DIVISION SUBROUTINE 
CALL 
: JSR PC,M.DPID 
; DIVIDEND = RO-R1-R2-R3 (RO=MSD) 
; DIVISOR = R4-R5 (R4G=MSD) 
SRETURN 
; REMAINDER AFTER DIVISION = RO-R1 (RO=MSD) 
; QUOTIENT AFTER DIVISION = R2-R3 (R2=MSD) 
M.DPID: MOV #40,-(SP) sCOUNTER FOR DIVISION CYCLES 
MOV R4,-(SP) SHI 
MOV R5.=(SP) SLOW ORDER DIVISOR TO THE STACK 
NEG 2(SP) [FORM NEGATIV 
NEG asP [VERSION OF THE DIVISOR 
SBC 2(SP) 
ADD asP,R1 
ADC RO :PERFORM THE INITIAL SUBTRACTION 
ADD 2(SP) RO 
BCS .DP56 zIF CARRY THEN OVERFLOW HAS OCCURRED 
CLR -(SP) [THIS IS A LONGER LASTING CARRY BIT 
M.DP40: ROL 
ROL R2 
ROL R1 
ROL RO x 
TST asP ;TEST “'CARRY'’ INDICATOR 
BEQ M.DP41 TIF NO “CARRY THEN ADD ELSE SUBTRACT 
CLR asP [CLEAR UP FOR NEXT TIME 
ADD 2(SP) ,R1 
ADC 0 sADD >(DIVISOR) 
ADC SP SET ‘CARRY 
ADD 4(SP) RO: <= 
BR 48 
M.DP41: ADD 5,R1 
ADC RO sADD +(DIVISOR) 
ADC asP : 1 ESET “CARRY 
ADD R4,RO <= ; 
M.DP42: ADC asP :SET “'CARRY'’ 
TST asP STEST THE UPDATE INDICATOR 
BEQ +4 => SIF ZERO FORGET IT 
INC R3 : *NO CARRY POSSIBLE HERE 
DEC 6(SP) <= *DECREMENT COUNTER 
BGT M.DP40 “BRANCH IF MORE TO DO 
ROR R3 
BCS M.DP44 
ADD R5,R1 
ADC RO 
ADD R4,RO 
CLC 
M.DP44: ROL R3 
ADD #10,SP yADJUST STACK BY 4 WORDS 
RTS PC 
M.DP50: ADD #6,SP 


E 
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DOUBLE PRECISION DIVISION SUBROUTI 


35 0e80e6 000007 RS PC 


CZRNGAO_RM8O F 
DOUBLE PRECISI 
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DIVISION SUBROUTINE 


ec 
35 


Lato 
Ls) 


SaSSreee. _ FePE pase 
SSaus SSSSS5355 
SOWWWNOSOO OofOoo 
NONNN— 2 ONWASoe 


001352 


001330 


001316 
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< TESTED. IF THE TOTAL E XC THE MAXI 
TERRORS DESIGNATED IN LOCATI Been MESSAGE WILL BE TYPED AND THE 
SDRIVE IN ERROR WILL BE DROPPED FROM The TEST. 
INCEC: MOV RO,-(SP) SAVER RO 
MOV R :GET RM BASE ADDRESS 
MOV RMCS2(RO),RO :GET CONTENTS OF 
BIC ac ;SAVE UNIT SELECT BIT 
Bite ATABIT (ROD, prvsei vel THIS DRIVE SELECTED FOR TEST 
INCB _— ERRCN(RO) S INCREMENT ERROR COUNT 
CMPB —s ERRCN(RO),ERMAX :EXCEEDED ERROR LIMIT ? 
BLO 1$ :BR IF NO 
TYPE ,$CRLF R=LF 
TYPE ;MSDRIV [TYPE ° ' 
V RO,-(SP) 3 3SAVE RO TYPEOUT 
TYPOS 760 TY STOCTAL ASCII 
BYTE 3 TYPE 2 DIGIT(S) 
“BYTE 3; SUPPRESS CEADING ZEROS 
TYPE DROP iT ype DROPPED* 
TYPE ‘EXCEED : TYPE “EXCEEDED MAXIMUM ERROR LIMIT* 
BICB ATABIT(RO),DRVSEL ;DESELECT DRIVE FROM TEST 
DEC SEOPCT sADJUST *EOP® COUNT 
JMP E [RETURN TO SEOP 
1$: Moy (SP)+.RO SRESTORE RO 


sTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTER, 
ee THEN SELECTS THE DRIVE. 


JSR PC,CNTCLR sCALL TO ROUTINE 

CNTCLR: MOV RMADR, 3GET RMCS1 BASE ADDRESS 
MOV #cLR, ARE s2(R4) # ISSUE MASSBUS CLEAR i 
BIC #*°C7, CHK UNIT SELECT BITS 


MOV CHKDRV, RACS2( (R4)* 
RTS PC :RETURN 


sSET “LPTAV ** TO THE PROPER STATE. 
: LPTAVL = 0 IF NO LINE PRINTER AVAILABLE 
i LPTAVL = 1 IF LINE PRINTER IS AVAILABLE 


sSELECT THE DRIVE 


; JSR PC,LP.AVL 
; RETURN 
LP.AVL: CLR LPTAVL ;START WITH NO PRINTER AVAIABLE 
MOV #1$, ERRVEC sSETUP THE TIMEOUT VECTOR 
CLR ERRVEC+2 
TST aLPs THERE A LINE PRINTER? 
INC PTAVL SYES@=SET- AVAILABLE SWITCH 
1$: CMP (SP)+ :NO=-POP STACK 
2s: MOV behavecse. ERRVEC’ sRESTORE TIMEOUT VECTOR 


RTS PC zRETURN 
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DOUBLE PRECISION DIVISION SUBROUTINE 


SEQ 0110 






55 
36 sTHIS ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM 
5 3AND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK 
38 :"CLKSTA™ WILL INDICATES THE CLOCK TYPE 
9 : O= NO CLOCK 
6 is Sb a 
6¢ THIS ROUTINE WILL ALSO SETUP ‘‘TICKMS': (TIME | 
6 SPER CLOCK TICK IN MILLISECONDS) AND “TICKUS 
64 CTIME PER CLOCK TICK IN MICROSECONDS) AS 
sPeR Sy == 60HZ 
ef : Se == 50HZ 
69 : JSR PC,ST.CLK 
20 : RETURN 
4 023, 40 010146 . ST.CLK: MOV ZSAVE R 
73 023242 012701 000006 MOV AEARVEC 2B + SAVE AN SETUP TIMEOUT VECTOR 
74 0232466 011146 MOV sos" 
75 023250 005011 CLR (RID’ :LEVEL 0 
76 023252 014146 , MOV -(R1) ,=(SP) 
77 023254 g1e711 023304 MOV #1$, (R1) :G0 TO 1$ ON TIMEOUT 
78 023260 005037 001342 CLR CLKSTA SET, CLOCK STATUS TO NO CLOCK 
79 023 $4 5777 156244 TST aPKCs t1S THERE A =P? 
80 023270 12730 000001 001342 MOV #1, CLKSTA tYES=-SET STATUS TO Kw11-P 
81 023276 737 023406 JSR PC’ST.PCLK SSTART THE KWé11-P 
82 023302 000414 BR :60 TO EXIT 
83 023 022626 1$: CMP (SP)+, (SP)+ [CLEAN UP THE STACK 
84 0 3306 012711 02333 MOV #2$,(R1) :IF TIMEQUT GO 10 2s 
85 0 331 005777 TST aLks 318 THERE A KW11-L? 
86 9 16 ers? I 177777 001342 MOV #~1,CLKSTA YES-- SET STATUS TO KW1T-L 
87 324 737 023450 JSR PC,ST.LCLK ISTART THE KW11-L 
88 0 3 000401 BR 33° EXIT 
89 023332 022626 3s: CMP (SP)+, (SP)+ [CLEAN UP THE STA 
90 0233 1 $: MOV (SP)+. (R1)+ SRESTORE THE TIMEOUT VECTOR 
91 0233 1 MOV (SP)+, (R1)+ 
% 0 01 MOV (SP)+-R1 RESTORE R1 
93 0 737 000100 001314 BIT #5W06,C.SWR ?50HZ OR 60HZ? 
36 8 2 a 20 001344 AOV $50 TICKMS BRANCH rn OPER 
36 0 737 eit it 6 mov #3 .TICKUS TICK FOR S5OHZ 
98 7 1 1344 4$: MOV #16, TICKMS sSETUP TIME PER 
99 03 76 737 tae it 6 MOV #16666. , TICKUS STICK FOR 60HZ 
100 023404 207 5$: RTS RET 
10 023406 ST.PCLK: 
103 023406 032737 000040 001314 BIT #Sw0S,C.SWR sALLOW SOFTWARE TIMEOUTS? 
104 14 14 BNE ?NO=-BRANCH 
105 16 012777 3504 1561 MOV VCLK,aPKV ;SETUP THE Kutt-P VECTOR 
106 4 012777 1561 MOV 4300-9 aPKve2 
1 1277 1 156076 MOV Pke ZFQUNT ONE, T 
108 023440 012777 000115 156066 mov #143 aPKcS tne EN. me EOONT DOWN’, "MODE 1 (REPEAT), 
110 023446 000207 1$: RTS PC iR te 
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IVISION SUBROUTINE 


ST.LCLK: 
BIT alee ALLOW +A TIMEOUTS? 


BNE =NO--BRAN 
MOV od pies sSETUP THE KW1l-L VECTOR 
MOV #300, aLkv+2 
MOV 100,aLKS sSTART THE KWIT-L 
1$: RTS ;RETURN 


SRVCLK: MOV TICKMS ,~(SP) 3TIME PER TICK IN MILLISECONDS 
J PC .RMTAR sCOUNT THE ELASPED TIME 
RTI sRETURN AFTER INTERRUPT 


zTHIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE PROGRAM IS 
aa OR WHEN THE VALUE OF BITOO IN 'C.SWR' IS CHANGED. 


; JSR PC,LODFLT 
; RETURN 
LODFLT: 
MOV RO,-(SP) :sPUSH RO ON STACK 
MOV R1,-(SP) PUSH R1 ON STACK 
MOV R2,-(SP) PUSH R2 ON STACK 
MOV R ={$P) PU ON STACK 
MOV #13377, TSTNMS SELECT TESTS O-7(SEEK) AND 11,12 & 14(TIMING) 
MOV #0, TSTNMS#+2 [SELECT TES 
MOV #DFLT,RO [DEFAULT PARAMETERS POINTER 
MOV #PRMO.R1 STABLE POINTER 
MOV R1,R2 *STOP ADDRESS 
1$: MOV (RO) +, (R1)+ [MOVE DEFAULT PARAMETERS INTO 
CMP RO,R2 [RUN TIME TABLES ** DONE? 
BLO 1$ :NO--BRANCH 
BIT #B1T00,C.SWR 316 BIT MODE ? 
BNE ‘BR IF 18 BIT MODE 
MOV ¥30..PRMLMT+16 SET 'FS* LIMIT TO 30. 
MOV #30. PRALAT+20 [SET "LS* LIMIT TO 30. 
OV #<256.* 1.>, TRCKWC -WORD COUNT FOR A 16 BIT TRACK 


; CONTINUE 
3$: MOV #29. ,PRMLMT#+16 ;SET ‘FS’ LIMIT TO 29. 


MOV #29. PRALAT #20 sSET "LS* LIMIT TO 29. 

MOV #~<256.*30.>, TRCKWC ; COUNT FOR AN 18 BIT TRACK 
4$: MOV #PRMPT RI sADDRESS OF PARAMETER POINTER TABLE 
5$: TST (R1) SEND OF THE TABLE ? 

BEQ 8$ 3BR_IF_END 

BIT #81708 ,a(R1)+ :"LS* SELECTED ? 

BEQ 5 [BR IF NOT 

MOV =2(R1) .R2 *PARAMETER TABLE ADDRESS 

MOV (R2) ,-(SP) [PARAMETER ALLOCATION BITS 

MOV 9. .R3 : R OF PARAMETERS (MAXIMUM) BEFORE ‘LS’ 
6$: ASR (SPS *COUNT THE PARAMETER 

BCC 7$ ‘BR IF NOT USED 

ADD #g.R2 SINCREMENT THE PARAMETER TABLE ADDRESS 
7$: DEC R [COUNT THE PARAMETER 

BNE [BR IF NOT THERE YET 

TST (SP)+ [CORRECT THE STACK POINTER 2 

CMP (R2) ,PRMLMT+16 IS "LS* TOO LARGE FOR THE MODE SELECTED ? 

BLOS ‘BR IF NOT 

V PRMLMT+16,(R2) :RESET VALUE FOR MODE USED 
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CZRNGAO RMSO FC 
DOUBLE PRECISION 
1% 0 r 000751 
ae 
7 12601 
174 03 , 20 
if 
if 
if 
180 
182 023734 
0 332 010146 
sr Sis 
183 0 Pe: 003004 
1B Sere he 
Bae ie 
187 02375 12702 
188 0237 ses 
1G See Be 
191 0 3ph4 103002 
136 osz778 AEE, 
194 03409 3066 
195 024004 022702 
196 oseot 1404 
197 0. 4012 13737 
198 ose8s 763 
199 0 £855 
Octo 012604 
024024 012602 
oseo 6 012601 
201 0240. 207 
i 
204 
208 
209 0 vated 032737 
10 024040 001007 
11 8 vies 12737 
\¢ 4050 012737 
13 02405 
i Sis Bie 
1 0 4ore 207 
18 


001116 


wte3e6 
002320 


002346 
002422 


000200 


200173 
800108 


DIVISION SUBROUTINE 


001374 


001314 
03633¢ 2 


036554 


RTS 


5$ 
(SP)+,R3 


g 


3 CONTINUE 


ie ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 
oa | ;LOAD THE TEST NUMBER 


LODPRM: 


1$: 


4$: 


MOV 
JSR 
RETURN 


RTS 


PC,LOD 


R1,-(SP) 


STSTNM.RG 


PRMPT(R4) ,R1 
tas 2 


R 
HKDRV,R4 
Oe R2)+ 

PRM 


ra + R1 ON STACK 
33PU H R2 ON STACK 
£ PUSH R4 ON STACK 


*GET THE TEST R 
:SETUP TO ADDRESS WORDS 
TEST’S PARAMETER TABLE ADDRESS 


sl ARAMETER SPECIFIER 
31S THIS PARAMETER USED IN THE TEST ? 


2$ 
(R1D+,(R2)+ ELOAD THE VALUE 
(R2)+ [CLEAR THE UNUSED PARAMETER LOCATION 
#PAT+2,R2 $ oaN i poet 
PRMLMT+12,LSTRK 3GET LAST TRACK FOR AN RM8O 
1$ [KEEP GOING 
(SP)+,R4 33POP STACK INTO Ré 
(SP)+.R2 t:POP STACK INTO R2 
(SP)+-R1 *POP STACK INTO R1 
PC 3jPOr a 


sTHIS ao if LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
:IN TO_DPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF CONTROL SWITCH’* 


LDCMD: 


1$: 
2s: 


RTS 


PC,.LDCMD 


#SW07,C.SWR 
1$ 


#READHD ,DPB.B+ 
#READHD ,DPB.C+ 


o 
tite f B+ 


#SEEK ,DPB.C+ 
PC 


A EXPLICIT SEEKS? 


; ~BRANCH 
$ 3NO=-SET UP FOR READ HEADER AND 
OMMAND 


zDATA C 
sSETUP FOR SEEK COMMAND 


zTHIS ROUTINE WILL CALL THE RM80 DRIVER AND THEN WAIT ON THE FUNCTION 


SEQ 0112 





5 


39 
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DOUBLE PRECISION DIVISION SUBROUTINE 
19 :T0 COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 
31 : FILL “DPB’’ WITH COMMAND INFORMATION 
g ; JSR RO, CALL.A 
33 : RETURN 
25 024076 005037 001222 CALL.A: CLR SESCAPE ;NO ESCAPE ADDRESS 
8 024102 004 3 ated JSR RO RMBO ;CALL RMBO DRIVER 
228 05211 $3639 Seg CALL.A 
369 02411 005737 036524 1$: TST DPB.A+16 DONE? 
230 0 4116 901775 BEQ 1$ *NO==LOOP 
231 024120 1 30 BPL 3 [BRANCH IF NO ERROR 
232 024122 O12? 024216 001222 MOV z $.SESCAPE + ;ESCAPE TO 3$ ON ERROR 
233 024130 013737 036520 001 $6 MOV DPB.A+12,CYL.DS :CYLINDER 
0241 113737 036517 00137 MOVB  DPB.A+11, TRK.DS : TRACK 
024144 113737 036516 001370 MOVB  DPB.A+10,SEC.DS : SECTOR 
024152 012746 036524 MOV #DPB.A+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
024156 737 025062 JSR PC ,ERINDX [FORM DISPATCH INDEX 
024162 062607 ADD (SP)+,PC *REPORT PROPER ERROR 
024164 104041 EMT 41 SNON=EXIST DRIVE 
024166 10404¢ EMT 42 [PORT TIMEOUT 
024170 10404 EMT 4 [UNSAFE ERROR 
024172 104044 EMT 44 [NON=1/0 ERROR 
234 026174 900240 NOP [TO SYNC THE CALLING SEQ OF ERINDX 
235 024176 005737 036654 TST RM.REG+RMER1 ANY DRIVE ERROR 
236 024202 001 BNE “BRANCH IF SO 
237 024204 032737 100000 036702 BIT #BSE ,RM.REG+RMER? *BAD SPOT ERROR 
238 024212 001007 BNE 4$ sBRANCH IF SO 
239 024214 23: 
024214 104045 EMT 45 
240 024216 032737 040000 036702 38: BIT #SKI,RM.REG+RMER2 SKI ERROR ? 
241 024224 00140 BEQ . 3BR I 
a4 024 26 00403 024710 JSR RO,CALL.R *DO RECALIBRATE COMMAND 
43 024232 013746 036524 4$: MOV = DPB.A+16,=(SP) ;STATUS 
be 024 36 004737 025022 JSR PC,LOP.CK [SEE IF LOOP, ABORT, OR CONTINUE 
345 O242he 0002 5$: RTS RO RETURN 
247 ;THIS ROUTINE IS THE SAME AS "'CALL.A’’ EXCEPT FOR THE DPB USED AND IF 
248 :THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
249 [AND SECTOR) READ IS CHECKED FOR VALIDITY. 
250 CALL 
251 : FILL DPB 
38 JSR RO,CALL.B 
33 ; RETURN 
55 024244 005037 901222 CALL.B: CLR SESCAPE :NO ESCAPE ADDRESS 
36 9 4250 005037 5 CLR DPB.B+$SSENB = :CLEAR SKIP SECTOR ENABLED INDICATOR 
3 4 3 9 , 032054 SR : RO, RM8O [CALL RM8O DRIVER 
38 4262 770 BR CALL.B 
60 024 64 005737 036546 1$: TST DPB.B+16 DONE? 
61 024 9 1775 BEQ 1$ *NO=-BRANCH 
62 024272 100055 BPL 3 BRANCH IF NO ERROR 
63 024274 gi ? 0 440 1222 MOV # $.SESCAPE + ESCAPE TO 3$ ON ERROR 
024 ; 13737 54 1 66 MOV DPB.B+12,CYL.DS : CYLINDER 
024310 113737 03654 1372 MOVB DPB.B+11.TRK.DS : TRACK 
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DOUBLE PRECISION DIVISION SUBROUTINE 
024316 413737 36540 001370 MOVB DPB.B+10,SEC.DS ;SECTOR 
24324 01 746 654 MOV #DPB.B+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
4 004737 02506 JSR PC ,ERINDX [FORM DISPATCH INDEX 
024 2607 ADD (SP)+,PC SREPORT PROPER ERROR 
024 104041 EMT 4] *NON=EXIST DRIVE 
024 9 10404¢ EMT 4¢ :PORT TI 
024 10404 EMT 4 [UNSAFE ERROR 
0 4346 104044 EMT 44 :NON-1/0 ERROR 
265 024346 900240 NOP *TO SYNC THE CALLING SEQ OF ERINDX: RT. 
266 0 4350 005737 036654 TST RM.REG+RMER1 § :DRIVE ERROR ? 
267 026354 001404 BEQ 2$ “BR IF NOT 
268 024356 022737 000200 036654 CMP #HCE,RM.REG+RMERI “SEE IF ONLY ‘HCE’ SET 
269 4 1420 BEQ $ . y 
570 024366 032737 100000 036702 28: BIT WBSE ,RM.REG+RMER2 ;BAD SPOT ERROR 
271 024374 001033 BNE 7$ ‘BRANCH IF SO 
37 024376 104045 EMT 45 
273 024400 032737 040000 036702 3S: BIT #SK1,RM.REG+RMER2 >SKI ERROR ? 
274 0244 00140¢ BEQ 3BR IF NO 
275 024410 004037 024710 JSR RO,CALL.R [D0 RECALIBRATE COMMAND 
37 024414 015746 036546 4$: MOV DPA.B+16,-(SP) :STATUS WOR 
77 024420 004737 025022 JSR PC,LOP.Ck :SEE IF LOOP, ABORT, OR CONTINUE 
278 024424 000410 BR [CHECK FOR STALL 
279 024426 123727 036532 000173 5S: CMPB = DPB.B+2,#READHD :DOING IMPLIED SEEKS? 
24434 001004 BNE :NO=-BRANCH 
281 024436 004037 025302 JSR RO, VERIFY *YES==GO CHECK THE DATA 
282 024442 036540 DPB.B+10 
283 024444 0? BR ZERROR DURING VERIFY 
24446 oo" 7 040000 001314 6S: BIT #S5W14,C.SWR SSTALL? 
285 024454 001403 BEQ 7$ :NO=-BRANCH 
286 024456 004037 025220 JSR RO, STALL *YES==CALL STALL ROUTINE 
287 024462 001454 » WORD STALL1 sSTALL TIME POINTER 
288 024464 000200 7$: RTS RO RETURN 
290 s THIS ROUTINE IS THE SAME AS ‘'CALL.B’* EXCEPT FOR THE DPB USED. 
292 : FILL DPB 
293 : JSR RO, CALL.C 
94 : RETURN 
296 024466 005037 001222 CALL.C: CLR SESCAPE 3NO ESCAPE ADDRESS 
297 024472 005037 036572 CLR DPB.C+$SSENB §:CLEAR SKIP SECTOR ENABLED INDICATOR 
298 02447 004037 032054 JSR RO, RM8O [CALL RM80 DRIVER 
024502 0365 DPB.C 
024504 77 BR CALL.C 
1 0245 3 036570 1$: TST DPB. C+16 DONE? 
24512 001775 BEQ 1$ *NO==LOOP 
303 24514 100055 BPL 38 * YES=-BRANCH_IF NO ERROR 
024516 012737 024622 901222 MOV # $.SESCAPE *sESCAPE TO 3$ ON ERROR 
305 4524 013737 64 001366 MOV DPB.C+12,CYL.DS :CYLINDER 
024532 113737 03656 00137 MOVB DPB.C+11,TRK.DS ; TRACK 
024540 M137 7 03656 137 MOVB DPB.C+10.SEC.DS ;SECTOR 
024546 01 rag 3657 MOV #DPB.C+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
024552 737 025062 JSR PC ,ERINDX [FORM DISPATCH INDEX 
4556 062607 ADD (SP) +,PC SREPORT PROPER E 
4560 104041 EMT 41 *NON-EXIST DRIVE 
4562 10404¢ EMT 4g *PORT TIMEOUT 
024564 10404 EMT 4 [UNSAFE ERROR 
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DIVISION SUBROUTINE 
04044 EMT 44 :NON=1/0 ERROR 
4 NOP ‘TO SYNC THE CALLING SEQ OF ERINDX: RT. 
5737 036654 TST RM.REG+RMER1 § DRIVE ERROR ? 
1404 BEQ 2$ “BR IF NOT 
7 , 000200 036654 CMP #HCE ,RM.REG+RMER) yinte IF ONLY "MCE* SET 
3399 100000 036702 2$: BIT WBSE ,RM.REG+RMER2 “BAD SPOT ERROR ONLY ? 
01033 BNE i$ ;BRANCH IF SO 
32737 040000 036702 3S: BIT #SK1,RM.REG+RMER2 >SKI ERROR ? 
1402 BEQ 4$ 3BR IF NO 
00403 024710 JSR RO,CALL.R [D0 RECALIBRATE COMMAND 
13746 036570 4$: MOV DPA.C+16,-(SP) :STATUS WORD 
004737 025022 JSR PC,LOP.CK [SEE IF LOOP, ABORT, OR CONTINUE 
3727 036554 000173 5$: CPB DPB. C+2,#READHD :DOING IMPLIED SEEK? 
004057 025302 JSR RO, VERIFY TYES==CHECK THE DATA 
562 DPB.C+1 
900407 BR sERROR DURING VERIFY 
737 040000 001314 6$: BIT #SW14,C.SWR *STALL? 
1403 BEQ 7$ :NO= CH 
004037 025220 JSR RO, STALL TYES==CALL STALL ROUTINE 
001454 .WORD STALL? SSTALL TIME POINTER 
000200 7$: RTS 
; THIS ROUTINE WILL ISSUE A RECALIBRATE COMMAND TO THE RM80 DRIVER 
+ AND WAIT FOR THE FUNCTION TO COMPLETE. 
: JSR RO,CALL.R 
; RETURN 
5037 001222 CALL.R: CLR SESCAPE :NO ESCAPE ADDRESS 
004037 032054 JSR RO,RM8O SCALL RM80 DRIVER 
3661 DPB.R 
00077 BR CALL.R 
5737 036634 1$: TST DPB.R+16 DONE? 
1775 BEQ 1$ *NO=-LOOP 
000 z BPL 3$ SBRANCH IF NO ERROR 
127 025010 001222 MOV #2$, SESCAPE + ESCAPE TO 2$ ON ERROR 
13737 30 001 MOV DPB.R+12,CYL.DS :CYLINDER 
137 7? 036627 00137 MOVB DPB.R+11.TRK.DS : TRACK 
13737 626 00137 MOVB DPB.R+10.SEC.DS :SECTOR 
12746 MOV #DPB.R+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
737 025062 JSR PC ,ERINDX [FORM DISPATCH INDEX 
2607 ADD (SP) +,PC SREPORT PROPER ERROR 
041 EMT 41 *NON=EXIST DRIVE 
04g EMT 4 ; TIMEOU 
0404 EMT 4 [UNSAFE ERROR 
044 EMT 44 ; 70 ERROR 
240 NOP [TO SYNC THE CALLING SEQ OF ERINDX 
1 46 036524 2s: MOV DPB.A+16,-(SP) :STATUS 
737 025022 JSR pc .LOP.Ck *SEE IF LOOP, ABORT, OR CONTINUE 
200 3$: RTS R RETURN 


;THIS SUBROUTINE CHECK FOR LOOP, ABORT, OR CONTINUE SWITCHES AFTER 
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DOUBLE PRECISION DIVISION SUBROUTIN 
447 z ERRORS 41, 42, 43, 44, 45, AND 46. 
449 : MOV DTA+16,<(SP) | ;STATUS WORD FROM DPB IN USE 
450 : JSR PZ,LOP.CK 
431 : RETURN 
453 025022 032777 001000 154124 LOP.CK: BIT #SW9,aSWR :LOOP ON ERROR 
454 025030 00140 BEQ 1$ 3BR NOT 
455 025032 000177 15406 JMP aSLPERR s START THE LOOP ADDRESS 
456 025036 005037 00122 1$: CLR SESCAPE CLEAR ERRO RESCAP LAG 
457 025042 032766 072006 000002 BIT #B81T14!B1T13!B1T1 iit! 'BITO ay Pog) =CHECK ERROR TYPE 
458 025050 00140 BEQ 2s sBR IF DRIVE NOT OFFLINE, UNLOADED, OR 
459 “PERSISTENT UNSAFE OR FATAL MASSBUS PARITY 
460 025052 000137 015142 JMP SEOP TERMINATE DRIVE 
461 025056 012616 2$: MOV (SP)+, (SP) SADJUST RETURN ADDRESS 
462 025060 000207 RTS PC 
464 ;THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
465 *TO THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
466 :THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 
467 ; INDEX STATUS/ERROR 
469 : 0 B1T08!B1T01 
470 : 2 BI 
471 : 4 BIT14!B1T04 
472 : 6 BITOS & <BITO9!COMMAND = NON-1/0> 
473 i 19, Bt 108 & <BITO9!COMMAND = 1/0> 
475 : JSR #DPB+16,-(SP) | s;ADDRESS OF STATUS/ERROR INDICATOR 
476 : JSR PC, ERINDX :FO x 
477 ; RETURN S INDEX IS ON THE STACK 
479 025062 010046 ERINDX: MOV RO,-(SP) 3SAVE RO 
480 025064 010146 MOV R1,-(SP) SAVE R1 
481 025066 016600 000006 MOV 6(SP) ,RO Ger STATUS/ERROR INDICATOR POINTER 
025072 011037 001356 MOV (RO), SVSTAT SAVE THE S$ id ag INDICATOR 
483 025076 005001 CLR RI START INDEX AT ZERO 
84 025100 032710 BIT +, (RO) SFORM INDEX OF 0? 
85 025102 90040¢ WORD dato TOI 
86 025104 00103 BNE $ : YES=--BRANCH 
487 025106 032710 BIT (PC) + (RO) *FORM PARITY ERROR OR PORT REQUEST INDEX (2)? 
488 025110 000004 .WORD 81702 
489 025112 001033 BNE :YES--BRANCH 
490 025114 032710 BIT (PC) +, (RO) SFORM UNSAFE INDEX (4)? 
491 025116 040020 “WORD BIT14'BIT04 
492 025120 1067 BNE $ :YES=-BRANCH 
493 025122 032710 BIT (PC)+, (RO) [FORM NON-1/0 ERROR INDEX (6)? 
494 025124 0 “WORD ®BI1TOS 
495 025126 00102 BNE 7 YES--BRANCH 
496 0251 32710 BIT (PC)+, (RO) [FORM 1/0 ERROR INDEX (10)? 
497 025132 000100 “WORD BIT06 
498 025134 01 17 BNE 1$ : YES--BRANCH 
499 025136 032710 BIT (PC)+, (RO) *SOFTWARE TIMEOUT? 
500 025140 901000 WOR 1T09° 
501 025142 00142 BEG :NO--FORM INDEX OF 0 
30 025144 126760 000150 177762 CMPB = #150,-16(RO)  :YES=-1/0? 
03 025152 003011 BGT 2$ :NO= 
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PRECISION DIVISION SUBROUTINE 
504 025154 005737 036654 TST RM.REG+RMER1 § ; ANY DRIVE ERROR ? 
505 025160 001005 BNE 1$ “BRANCH IF SO 
506 0 3162 O5¢ 7 100000 036702 BIT #BSE ,RM.REG+RMERC *BAD SPOT ERROR 
507 0251 1401 BEQ 1$ SBRANCH IF NOT 
508 025172 005201 INC R1 *SKIP , NOT REPORT BAD SPOT ERROR 
509 025174 005201 1$: INC R1 + INDEX=10=---ERROR=45 OR 46 
510 025176 005201 $: INC R1 + INDEX=6=--ERROR= 
511 025200 005201 $: INC R1 + INDEX=4---ERROR=43 
31 025202 005201 4$: INC R1 + INDEX=2=--ERROR=4 
513 025204 006301 5$: ASL R1 + INDEX=0---ERROR=41 
514 025206 010166 000006 MOV R1,6(SP) :RETURN INDEX TO USER 
515 025212 012601 MOV (SP)+,R1 SRESTORE R1 
516 025214 012600 MOV (SP)+,RO SRESTORE RO 
317 025216 000207 RTS PC [RETURN FROM CALL 
519 ;THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
220 AMOUNT OF TIME I BIT13 OF C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
522 ?STALL1 CONTAINS SPECIFIED T:ME FOR TESTS 0 = 7, AND STALL2 
235 : CONTAINS THE TIME FOR TESTS 16-21. 
525 : JSR RO, STALL 
226 : TIME POINTER sWHERE TO FIND THE STALL TIME 
528 025220 013046 STALL: MOV a(RO)+,-(SP) | ;PICKUP STALL TIME 
529 025222 032737 020000 001314 BIT #SW13,C.SWR SUSE A RANDOM TIME? 
530 025230 001406 BEQ : 
531 025232 004737 022502 JSR PC, SRAND sYES=- RANDOM NUMBER 
532 025236 013716 022602 MOV SLONUM, (SP) SAND USE IT FOR THE STALL TIME 
533 025242 042716 177700 BIC #°C77, (SP) *BUT NEVER > 64 MILLISECONDS 
534 025246 005046 1$: CLR =(SP) :CLEAR TEMP. LOCATION 
535 025250 162766 000001 000002 2S: SUB #1,2(SP) SMORE STALL REQUIRED? 
536 025256 103407 BLO 4 *NO=-BRANCH 
537 025260 o12716 000144 MOV #100. , (SP) ‘STALL FOR ABOUT 1 MILLISECOND 
538 025264 005700 3$: TST R ‘NOP TO KILL TIME 
539 025266 005366 000000 DEC Q<sP) > COUNT 
540 025272 001374 BNE $ SLOOP IF MORE COUNTS NEEDED 
541 025274 765 BR 2$ 
542 025276 022626 4$: CMP (SP)+, (SP)+ :CLEAN OFF THE STACK 
243 025300 200 RTS RO EXIT 
243 ROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 
547 : JSR RO, VERIFY 
548 : ADR POINTER sADDRESS OF DPB+10 (SECTOR NUMBER) 
549 : 22? TERROR RETURN 
350 ; RETURN 
33 025302 010146 VERIFY: MOV R1,-(SP) :SAVE R1 
553 025304 12001 MOV CRO)» R1 *GET ADDRESS OF DPB+10 
554 0 3306 737 170000 043540 BIC #170000,BUFFER :STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
555 025314 111137 025476 MOVB ),6$. SSAVE EXPECTED SECTOR ADDRESS 
236 5 3 25761 043540 000002 CMP FER,2(R1) § : CYLINDER NUMBER OK? 
558 025 10h 043543 000001 CMPB UFFER+3,1(R1) 31S THE TRACK ADDRESS GOOD ? 
259 0 53 1011 BNE BR IF 

534 5761 000010 TST SSENB-10(R1) :WAS SKIP SECTOR ENABLED ? 
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ON SUBROUTINE 
BEQ 1$ :BR IF NO 
025476 INCB 6S S INCREMENT EXPECTED SECTOR ADDRESS BY 1 
043542 025476 18: CPB FER+2,6$ is THE SECTOR ADDRESS GOOD ? 
54 1 69 2s: MOV BUFFER,CYL.RD  ;GET RECIEVED SECTOR ADDRESS 
54 136 MOVB § BUFFER+3,TRK.RD ; TRACK 
54 1364 MOVB BUFFER#2,SEC.RD : , CYLINDER *' 
25476 001370 MOVB  6$,SEC.DS [GET EXPECTED SECTOR ADDRESS 
TSTB ss (RAD SADJUST Ri TER 
1372 MOVB (R1)+,TRK.DS | ;GET EXPECTED TRACK ADDRESS 
1 MOV (R1),CYL. : ’ YLINDER " 
025434 001222 MOV #3$,SESCAPE +;ESCAPE TO 3$ ON ERROR 
990107 036510 3$: MOV WRECAL,DPB.A+2 ;LOAD RECALIBRATE ORDER CODE 
0240 $ JSR RO, CALL.A 760 EXECUTE THE COMMAND 
00122 CLR SESCAPE *CLEAR ERROR ESCAPE FLAG 
001000 153474 gi #SW9,aSWR {LOOP ON ERROR ? 
001124 MOV SLPERR.RO [RETURN TO ERROR LOOP ADDRESS 
4$: TST (RO)+ yINCREMENT RETURN ADDRESS 
5$: MOV (SP)+,R1 SRESTORE R1 
RTS RO EXIT 
6$: .WORD 0 ; TEMPORARY STORAGE FOR EXPECTED SECTOR ADDRESS 
;THIS ROUTINE WILL PERFORM A “MASSBUS"* INIT. FOLLOWED BY 
‘A 'RECALIBRATE’’ ON THE DRIVE UNDER TEST. 
:NOTE: THIS ROUTINE DESTROYS R1 AND R4& 
; JSR RO, SRCHOO :D0 A MASSEUS INIT. AND RECAL 
; RETURN1 SRETURN HERE IF NO ERROR 
: RETURN2 SRETURN HERE ON ERROR 
SRCHOO: CLR R1 sINCASE OF ERROR (TYPTIM) 
177776 CLR PS 
033526 003654 MOV #ISR, @RMVEC sSETUP INTERRUPT VECTOR 
031366 MOV RMADR,R4 [PICKUP ADDRESS OF RMCS1 
£00040 000010 MOV ACLR,RMCS2(R4) MA s INIT: 
036604 CLR DTADPB+10 + TRACK= SECTOR=0 
36606 CLR DTADPB+12 [CYLINDER = 
107 036576 MOV #RECAL,DTADPB+2 :COMMAND = RECALIBRATE 
1222 CLR SESCAPE *NO ESCAPE ADDRESS 
032054 JSR RO,RM8O *CALL THE DRIVER 
DTADPB [DPB POINTER 
BR $ SQUEUE IS FULL 
036612 1$: Ist DTADPB+16 *WAIT ON DONE 
BPL 3$ s TAKE NORMAL EXIT IF NO ERROR 
025644 901222 MOV #2$, SESCAPE >;ESCAPE TO 2$ ON ERROR 
0 001366 MOV DTADPB+12,CYL.DS ZCYLINDER 
03660 0013/¢ MOVB DTADPB+11, TRK.DS > TRACK 
036604 00137 MOVB  DTADPB+10,SEC.DS SECTOR 
036612 V ADTADPB+16,-(SP) *STATUS/ERROR INDICATOR ADDRESS 
25 JSR RIND FORM DISPATCH INDEX 


PC.E : 
(SP) +,PC SREPORT PROPER ERROR 
41 *NON-EXIST DRIVE 
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DOUBLE PRECISION DIVISION SUBROUTINE 
025634 104042 EMT 4 :PORT TIMEOUT 
56 104 § EMT 4 [UNSAFE ERROR 
5640 104044 EMT 44 [NON=1/0 ERROR 

25642 106045 EMT 45 71/0 ERROR 
612 5644 905720 2$: TST (RO) + SADJUST FOR ERROR EXIT 
61 646 04 BR 4$ :G0 TO IT 
614 02565 5064 900006 3$: CLR RMDA(R4) STRACK AND SECTOR = 0 
615 025654 005064 34 CLR RMDC(R4) [CYLINDER = 0 
616 025660 200 4$: RTS RO RETURN 
618 :THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
620 025662 000002 DORTI: RTI ;RETURN FROM INTERRUPT 
62 :THIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE "TIMING ROUTINES 
624 : JSR PC,STRTMR 
69) : RETURN 
627 025664 104412 STRTMR: SAVREG ZSAVE RO-RS 
628 3666 012700 001376 MOV #TIM.UP,RO SINITIALIZE TIME TABLES 
629 025672 005020 1$: CLR (RO)+ SCLEAR 
630 025674 920067 001432 CMP RO,ATIM.PT * DONE? 
631 025700 103774 BLO 1$ :NO=-BRANCH 
632 025702 012710 043540 MOV WBUFFER.(RO) | :SETUP TIME TABLE POINTER 
633 025706 O1273 077777 001376 MOV #°CBIT15,TIM.UP :SET MINIMUM TIME TO MAXIMUM 
634 025714 012737 077777 001414 V #°CBIT15.TIM.DN :POSITIVE NUMBER 
635 025722 104413 RESREG SRESTORE RO-RS 
636 025724 000207 RTS PC RETURN 
638 sTHIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
639 [MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
640 :NOTE: THIS ROUTINE DESTROYS R2 
6 z MOV #TP,R3 sPARAMETER POINTER 
64 : MOV FLAG, RS [FLAG=0=COUNT UP 
644 : [FLAG=-1=COUNT DOWN 
645 : JSR PC, COUNT 
646 ; RETURN 
648 025726 012702 001376 COUNT: MOV #TIM.UP,R2 :PICKUP THE “UP’’ POINTER 
649 025732 00570 TST RS SUSE IT? 
650 025734 00140 BEQ 1$ + YES--BRANCH 
651 025 01270 001414 MOV #TIM.DN,R2 *NO=-PICKUP ‘DOWN’ POINTER 
63¢ 9 574 02 722 153572 1$: CMP aPKC, (R2)+ SLESS THAN PREVIOUS LOW? 
653 025746 00 BGE [NO--BRANCH 
654 025750 017762 153564 177776 MOV aPKC, -2(R2) SYES=-SAVE IT 
655 025756 027763 153556 000004 2S: CMP aPKC.4(R3) [LESS THAN THE LOW LIMIT? 
656 025764 2001 BGE : CH 
657 3766 1 INC (R2) SYES==COUNT IT 
658 025 5 3$: TST (R2)+ ‘ADVANCE THE POINTER 
659 025772 027722 153542 CMP aPKC, (R2)+ *GREATER THAN PREVIOUS HIGH? 
660 025776 340, BLE :NO--BRANCH 
661 0 17768 15 177776 MOV aPKC, -2(R2) SYES=-SAVE IT 
662 026006 027763 153526 900006 4$: CMP aPKC ,6(R3) “GREATER THAN THE HIGH LIMIT? 
663 026014 003401 BLE ; 
664 026016 005212 INC (R2) SYES==COUNT IT 
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DOUBLE PRECISION DIVISION SUBROUTINE 

665 0 57 5$: TST (R2)+ sADVANCE THE POINTER 

666 722 153512 ADD aPKC, (R2)+ [ADD THIS COUNT TO THE TOTAL 

667 0260 55 ADC (Re)+ 

668 9 60 31 INC (Ro) :COUNT THIS READING 

669 0 605 ! $73 050044 001432 CAP #BUFFER*<4#561.>,T1K.PT sSAVE THIS COUNT? 

671 02604 At7398 153472 15336 MOV @PKC,@TIM.PT  :YES=-WELL SAVE IT THEN 

67¢ 02605 060/37 000002 00143 ADD #2,TIM.PT *ADVANCE THE POINTER 

673 026056 207 6$: RTS PC RETURN 

675 sTHIS ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS 

676 CALL 

677 : JSR RO, SPTYP 

678 ; TABLE ADDRESS 

680 STABLE: .WORD ASCIZ MESSAGE POINTER 

681 : "WORD MIN VALUE 

ors ; » WORD 

684 026060 912002 SPTYP: MOV (RO)+,R2 :THE TABLE ADDRESS 

685 026062 032777 000100 153064 BIT #SW06,aSWR TALLOW PRINT 

686 026070 001035 BNE 3$ TEXIT IF NOT 

687 026072 104401 001231 TYPE  ,$CRLF 

688 026076 104401 001231 TYPE ,$CRLF 

689 026102 012237 026110 (R2)+,1$ 

690 026106 104401 TYPE 

691 020110 000000 1$: .WORD 0 

692 026112 012246 MOV (R2)+,=(SP) ;LOAD MIN VALUE 

693 026114 001410 BEQ 2s *SKIP IF MIN VALUE IS 0 

694 026116 104401 037674 TYPE §,MSGMIN 

695 026122 004737 022212 JSR PC, $SB2D sCONVERT TO DECIMAL 

6% 026126 004737 022442 JSR PC. SSUPRS TYPE IT 

697 026132 104401 037716 TYPE §§ ,MSGOUS :0 US 

698 026136 104401 037702 2$: TYPE § ,MSGMAX 

699 026142 011246 MOV (R2) ,-(SP) :MAXMUM VALUE 

700 026144 004737 02221 JSR . 

701 026150 004737 02244 JSR PC. $SUPRS 

702 026154 104401 037716 TYPE § ,MSGOUS 

703 026160 104401 001231 TYPE  -S$CRLF CRLF 

704 026164 000200 3$: RTS RO 

ws 

708 z:THIS ROUTINE IS USED TO TYPE THE MINIMUM, 

709 *MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 

710 SIT WILL ALSO CHECK THE TIMES TO ENSURE 

211 i THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 

71 : JSR RO, TYPTIM 360 REPORT THE TIMES 

714 ; TABLE [POINT TO THE PROPER TABLE 

1 : RETURN 

717 STABLE: MSGADR1 ZADDRESS OF ASCIZ MESSAGE NUMBER 1 

718 : MSGADR2 SADDRESS OF ASCIZ MESSAGE NUMBER 2 

719 : MIN. ALLOWED “MINIMUM TIME ALLOWED 

720 : MAX. ALLOWED *MAXIMUM TIME ALLOWED 
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DOUBLE PRECISION DIVISION SUBROUTINE 
722 026166 TYPTIM: 
9 61 010246 MOV Re. ,~(SP) ::PUSH R2 ON STACK 
6170 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 
026172 010446 MOV R4,=(SP) 7:PUSH R& ON STACK 
0 6174 01054 MOV R5.=(SP) +:PUSH RS ON STAC 
723 026176 1200 MOV (RO)+,R2 :PICKUP THE TABLE POINTER 
40 03 000100 152746 BIT #SW06, aSWR 3 INHIBIT TIME REPORTS? 
50 001154 BNE 9$ : YES= CH 
6 02621 01237 026230 MOV (R2)+,2$ SADDRESS OF MESSAGE NUMBER 1 

727 026214 ot 05 MOV (R2)+.R5 SADDRESS OF MESSAGE NUMBER 2 

728 026216 012203 MOV (R2)+.R3 :PICKUP THE LOW LIMIT 

£29 0 911202 MOV (R2) ,R2 TAND THE HIGH LIMIT 
0 12704 001376 MOV #TIM.UP,R4 : PARAMETER POINTER 

731 0 26 104401 1$: TYPE [TYPE THE MESSAGE 

r3e 0 000000 2$: .WORD 0 TASCIZ MESSAGE POINTER GOES HERE 
026232 005764 000014 TST 14 (R46) [DID ANY COUNTS OCCUR? 

734 026236 001536 BEQ aS :NO--BRANCH 

735 026240 104401 037674 TYPE ,MSGMIN MIN= 

736 026244 012446 MOV (R4)+,<(SP) :PUT (R4)+ ON THE STACK 
02 46 004737 02221 JSR PC ,$SB2D TO DECIMAL ASCIZ 
026252 004737 02244 JSR PC. $SUPRS iTYPE WITHOUT LEADING ZEROS 

737 0 56 104401 037716 TYPE § ,MSGOUS :"0 Us" 

738 0 005724 TST (R4)+ TANY SEEKS BELOW THE LOW LIMIT 

739 026264 001421 BEQ 3$ :NO—-BRANC, 

740 026266 104401 037160 TYPE - COMMA TYPE 

741 026272 016446 177776 MOV -3(R4).-(SP) PUT -2(R4) ON THE STACK 
026276 004737 02221 JSR PC ,$SB2D [CHANGE TO DECIMAL ASCIZ 
026 004737 02244 JSR PC. $SUPRS 3TYPE WITHOUT LEADING ZEROS 
026306 104401 03772 TYPE MBELOW BELOW THE MINIMUM OF 

743 026312 010 V R3,-(SP) [PUT R3 ON THE TACK 
026314 00473 022212 JSR PC.$SB2D [CHANGE TO DECIMAL ASCIZ 
026320 004737 022442 JSR PC. $SUPRS :TYPE 7 ya LEADING ZEROS 
026324 104401 037716 TYPE § ,MSGOUS 

745 026330 104401 037702 3$: TYPE § .MSGMAX 
0263 012446 MOV (R4)+,-(SP) on (R4)+ ON THE STACK 
026336 00473 92221 JSR PC, $S82D SCHANGE TO DECIMAL ASCIZ 
026342 737 deeuk JSR PC. $SUPRS 3TYPE WITHOUT LEADING ZEROS 

747 026 104401 716 TYPE  ,MSGOUS TYPE ' 

748 026352 005724 TST (R4)+ TANY SEEKS ABOVE THE HIGH LIMIT 

749 026354 001421 BEQ 4$ ; CH 

750 026 356 104401 0371 TYPE - COMMA 7% 

751 026 016446 1777 MOV =3(R4) .=(SP) ‘PUT -2(R4) ON THE STACK 
026366 00473 02301 JSR PC, $SB2D SCHANGE TO DECIMAL ASCIZ 
026 72 737 02246 JSR PC. $SUPRS TYPE WITHOUT LEADING 6 ZEROS 

752 76 104601 TYPE VE i ABO THE MAXIMUM OF 

753 026402 010246 MOV R2,-(SP) TR ON THE STACK 
026404 004737 02221 JSR PC.$SB2D SCHANGE CIMAL ASCI2 
026410 004737 0 44 JSR PC. SSUPRS :TYPE e HM TPABING ZEROS 

754 14 104401 716 TYPE ,MSGOUS 

755 026420 104401 037710 4$: TYPE MSGAVG 

136 6424 012446 MOV (R4)+,-(SP) ae THE AVERAGE 

757 0264 12446 MOV (R4)+.=(SP) 

758 0264 O1e4b6 ns MOV (Ras * = (SP) 

759 0264 737 022604 JSR spiv 

760 0264 006126 ROL Ay :1S THE REMAINDER OVER HALF? 

6440 100001 BPL $ 7NO=-BRANCH 
644 (SP) SYES==ROUND UP 
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DOUBLE PRECISION DIVISION SUBROUTINE 
763 026444 5$: 
0 6444 737 21 JSR PC,$SB2D :CHANGE TO DECIMAL ASCIZ 
0 737 44 JSR PC. $SUPRS > TYPE WITHOUT LEADING ZEROS 

764 9 6454 104401 71 TYPE  ,MSGOUS 3TYPE ‘0 US 

765 026460 104401 0371 TYPE , ; a, 

766 0 016446 1777 MOV -3(R4),-(SP) PUT -2(R4) ON THE STACK 
026470 004737 0 4 JSR ‘ [CHANGE TO DECIMAL ASCIZ 
026474 0047 7 02244 JSR PC’ $SUPRS [TYPE WITHOUT LEADING ZEROS 

767 026500 022737 000011 001116 CMP #11,STSTNM ‘TEST 11 ? 

768 0 6306 001403 BEQ *BRANCH IF SO 

769 026510 104401 040021 TYPE MSGSEK [TYPE "SEEKS TIMED'’ 

0 026514 900402 BR ZTYPE JT 

71 026516 104401 040001 6$: TYPE ,MSGSCH [TYPE ‘SEARCH TIME"’ 

oe 026522 010537 026230 7$: MOV R5,2$ yNEXT MESSAGE POINTER 

774 026526 001404 BEQ 9$ TIF NONE EXIT 

775 026530 005005 CLR R5 [NO MORE THAN 2 
0 000635 BR 1$ 
026534 104401 040036 8$: TYPE §_,MSGNOT :TYPE "NOT TIMED"’ 

778 026540 9$: 

026540 012605 MOV (SP)+,R5 3:POP STACK INTO RS 
026542 012604 MOV (SP) +-R4 [:POP STACK INTO R4 
026544 012603 MOV (SP) +<R3 t:POP STACK INTO R3 
026546 012602 MOV (SP) +,R2 +:POP STACK INTO R2 

779 026550 000200 RTS RO EXIT 

781 sTHIS SUBROUTINE WILL INCREMENT THE TRACK 

782 [NUMBER (R2) BY THE AMOUNT SPECIFIED BY ‘IT’. 

783 :CALL 

784 : JSR RO, INCTRK 

785 : RETURN1 ; TRACK NUMBER GREATER THAN LT15 

786 : RETURN2 [TRACK NUMBER INCREMENTED 

788 026552 020237 002334 INCTRK: CMP R2.LT sLAST TRACK COMPLETED? 

789 026556 001410 BEQ 2s YES=- 

790 026560 06370 002336 ADD IT.R2 *NO=-UPDATE TRACK 

791 026 02023 2334 CMP R2.LT STRACK TO BIG? 

198 026570 3% BLE 1$ :NO=-EXIT 

793 026572 013702 002334 MOV LT,R2 SYES-=SET TRACK TO LAST TRACK 

794 026576 005720 1$: TST (RO)+ *ADJUST FOR RETURN 

798 026600 000200 23: RTS RO [RETURN 

797 

798 sTHIS SUBROUTINE WILL INCREMENT THE CYLINDER 

199 [NUMBER (R1) BY THE AMOUNT SPECIFIED BY ‘IC’. 

801 : JSR RO, INCCYL 

80 : RETURN1 SCYLINDER NUMBER GREATER THAN LC15 

803 : RETURN2 [CYLINDER NUMBER INCREMENTED 

805 026602 020137 002326 INCCYL: CMP R1,LC sLAST CYLINDER COMPLETED? 

806 0 6606 001410 BEQ 2$ iY 

807 02661 3701 902 30 ADD 1C,R1 [NO=-UPDATE CYLINDER 

808 26614 13 26 cp Ri LC i CYLINDER TO BIG? 

810 13701 002326 MOV LC,R1 SYES=-SET CYLINDER TO LAST CYLINDER 

811 6 6626 ONE 750 1$: TST (RO) + SADJUST FOR RETURN 2 
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ON DIVISION SUBROUT 


Oserer 


104401 
000410 


012703 
01 UR A's 
00403 


036646 
000002 


002426 


026756 


INE 


000002 


000002 


152270 


001320 


2$: 


RTS 


G 10 


3RETURN 


ie ROUTINE DECREMENTS THE SECTOR ADDRESS. 


CLEAR THE STACK 
;SUBROUTINE ENTRY 


DECSEC: 


1$: 


ore Rh IS USED TO INPUT THE ‘‘CONTROL SWITCHES’’. 
WR<07>=1 THE sn itee SETTING WILL BE TYPED AND THE NEW 


=(SP) 
PC ,DECSEC 


RM. REG+RMDA,2(SP) 
2(SP) 


SEQ 0123 | 


THE SECTOR ADDRESS ON THE STACK 
:DECRERENT THE ADDRESS 
CORRECTION NEEDED 


1$ 7BR IF NOT 
+ tanec o2(SP) ; 2 OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS 


SETTING 1S READ AND 


[NOTE: 
ALL 
GETSWR: 


::65$: 
64S: 
10$: 


20S: 


Ta 2G) Bo Be Be Be Be Se Be Ge Oe Oe 
nam raf 
ee “z 


J 
RETURN 


BIT 
8 


MOV 


RTS 


MOV 


MOV 
JSR 
RETURN 


RE 
RET 


EQ 
TYPE 
BR 
eASCIZ 


PC,,GETSWR 


#SWO7 ,@SWR 
20$ 


65$ 


CSW RG 
fos” 


C.SWR,SAVCSW 


WADR, RS 
RO, OE NUN 


R3,2$ 


0 
R4,~(SP) 


TORED. 
THIS ROUTINE besTRovs R3 AND R4 


3(C.SWRI=DESIRED CONTROL SWITCHES 
3 READ CONTROL SWITCHES? 


+; TYPE ASCIZ STRING 


$ :3G y OVER THE ASCIZ 
<CRLF>/SET SWR<O07>= 


#MSG. a ae 


3““CONTROL SWI TCHES="" 


;PRESENT CONTROL SWITCH SETTINGS 
3GET THE NEW SWITCH SETTINGS 


3PERIOD 
3 SAVE erin 


RETURN FROM CALL 
3 THIS 1 Te ett TYPE AN ASCIZ MESSAGE AND THEN 


SIF REQUIRED. 
:NOTE: THIS ROUTINE DESTROYS R1 


tR2= 


Z STRING AND CHANGE THE STRING TO OCTAL 


sADDRESS OF ASCIZ MESSAGE 
SOCTAL NUMBER 


shee erates WITH A COMMA 


R 
4*32 FOR ALL 
: THREE RET 


sSAVE MESSAGE POINTER 
THE ME 


TYPE 
ZMESSAGE POINTER GOES HERE 


72SAVE R4 FOR TYPEOUT 


VALUE 
PERIOD-SAVE NEW SWITCH SETTING 


eS 
i 


RSSsaees FS 
WASSER 


COOoooooo 


85 
0 
02701 
02701 
1186 02701 
1187 027016 
027016 
0270 
027026 
027026 
027030 
1188 027032 
1189 027034 
1190 027036 
1191 067040 
119@ 02704 
1193 027044 
119% 027046 
1195 027050 
1196 027052 
1197 027054 
1198 027060 
1199 027062 
1200 027064 
1201 027066 
1202 027070 
1203 027072 
1204 027074 
1205 027076 
1206 027100 
1207 027102 
1208 027104 
1209 
1210 
1211 
121 
121 
1214 
1215 027106 
1216 027110 
1217 027114 
027120 
027136 
1218 027136 
1219 027140 
1220 027142 
7146 
715 
027152 


F 
SION D 
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104402 
1o440 036773 
104411 


12601 
03 030644 


004037 031104 


= 
So 
nuow 


i! 000056 


ssaeeee 


= 
R 
So 


030644 


ooon-— 


IVISION SUBROUTINE 


eb 
~Q 
AWM 
ee ee 


sTHIS ROUTINE IS USED T 
3THE TEST PARAMETERS 
sTHE CAPABILITY OF 


RTS 


» SLASH 


(SP)+,R1 
RO,CK.CHR 


R1 
RO, CK .NUM 


a 
oOnD—AyD 


— 
ese 


H 10 


; {60 TYPE=-OCTAL ASCIICALL DIGITS) 


ZREAD_AN ASCIZ STRING 
ZADDRESS OF FIRST CHARACTER 
3CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
SCARRIAGE RETURN 

:DIGIT 9-9 

;DECREMENT THE INPUT POINTER 


sCHECK THE NUMBER 


ILLEGAL INPUT) 
TERMINATED WITH A ‘',‘' OR “CR 
TERMINATED WITH A ‘."* 
TERMINATED WITH A ‘*.."* 
;DOUBLE PERIOD 


sSINGLE PERIOD 
3COMMA--SAVE INPUT NUMBER 
360 TO EXIT 

Bl ary ha AFTER A COMMA? 


: L 

sYES--EXIT 

Zs TERMINATOR AFTER A PERIOD? 
sYES--EXIT 

3NO--DOUBLE PERIOD? 

3sNO--L 

3 YES--TERMINATOR? 

:NO-- 

ep) PERIOD 
:COMMA--POSITION THE 


sNUMBER IN CASE IT 
31S THE PRIORITY LEVEL 


sEXIT 


O CHANGE OR MODIFY 
- IT GIVES THE OPERATOR 
SPECIFYING WHICH DRIVES TO TEST, WHICH 


3TESTS TO RUN AND HOW MANY TIMES TO REPEAT EACH TEST 


GT.PRM: SAVREG 
GT.PR1: CLR 
TYPE 
::65$: .ASCIZ 
643: 
RDLIN 
MOV 
JSR 
GT.PR1 
GT.PR1 
GT.PR1 


SAVE RO - RS ° 
DRVSEL 3sNO DRIVE SELECTED 
65$ sz: TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
<CRLF>/DRIVE(S)=/ 
READ TTY 
(SP)+,R1 sADDRESS OF ASCIZ STRING 
RO,CK.CHR :CHECK ONE CHARACTER 


K 
ILLEGAL CHARACTER 
: CARRIAGE RETURN 


SEQ 0124 


CZRNGAO RMBO FCTNL PT 
DOUBLE PRECISION DIVI 
027154 711 
715 711 
71 £16 
ise] 71 5 
= 2 ree 127 
ries Sane 
027174 0 a4} 
027176 02711 
027 72 
027 7 
8 7 7 
1223 027 1 
is 4 027214 105741 
1225 027216 OO 366 
12 $ os?és? 0050 
13 Bree Bite 
\s 0373 . 3 O57 
1 027240 104413 
1231 027242 000207 
1s3¢ 
1235 027244 
027244 104401 
027250 000403 
027260 
1234 027260 104411 
1235 027262 012601 
1236 O¢?6 122711 
1237 027. 001007 
1238 027272 122761 
1239 027 001003 
1240 027302 10978) 
1241 027 001754 
1sh¢ 027310 005037 
i re Bt 
: v4 0 7334 005037 
1 “7 027330 121127 
1248 Oc 7aee 1 
1249 Os? 36 052737 
| 30 027344 000525 
1252 027 121127 
3S rs ah 
1254 oe? 54 052737 
1255 516 
1526 
1257 027 037 
1 4 7 514 
1259 027372 010205 
1260 027374 5201 
1261 027 8 037 
1 66 740, 05 
1263 027404 201 


MACRO V04 
ON SUBROU 


030720 


031356 


001332 
001334 


031356 


027252 


000056 
000056 
000002 
091334 
001 

13 
1340 


000123 
000377 


000124 
013000 


030570 


030570 


TINE 


001330 


001330 


000001 


001332 


001332 


uo 
Aw 
ee ee 


3$: 


4$: 


GTTST1: 


::65$: 
64S: 
1$: 
GTTST2: 
1$: 


2$: 


8 
GT.PR2: 


GT.PR1 
1 


TYPE 
BR 
eASCIZ 


11 
.00 15=JAN-82 07:05:59 PAGE 32-16 : 


R1 


#7 ,R2 
RO,CK.DIG 


“TE 
ATABIT(R2) ,DRVSEL 3SET THE 
-(R1) sWA 


TSTNMS 
TSTNMS+2 


GTTST1 
ATABIT(R2) ,DRVSE 


PC 


(R1) ,4°S 


#377, TSTNMS 
GTTST3 


(R1) aT 
#13000, TSTNMS 
GTTST 
RO,CK.OCT 
GTTST4 

R e 
RO.CK.OCT 
3$ 

R1 


SEQ 0125 


:DiGIT 0-9 

SUPPER LIMIT OF INPUT 

ZCHECK THE DIGIT(S) 

ZILLEGAL INPUT 

3 INPUT TO LARGE ee ee ‘ se 

ZTERMINATED WITH A‘, OR “CR 

STERMINATED WITH A ""."* 
RMINATED WITH A ‘*.."* 


DRIVE SELECTED BIT 
S THE LINE TERMINATED? 


sNO-GET THE 
sDESELECT ALL TESTS 
;YES--SELECT TEST 


i SET THE SELECTED DRIVE BITS 
RESTORE RO = RS 


zsTYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


sREAD_AN ASCIZ STRING 
POINTER TO R1 
DOUBLE PERIOD? 
NO--BRANCH 


7“"cR''? 
ZYES--EXIT 
z:NO TEST SELECTED 


3NO TESTS TO BE OPENED 


sALL SEEK TESTS? 
3NO--BRANCH 
ZYES--SELECT TESTS 0-7 


sALL TIMING TESTS? 
3NO--BRANCH 
ZYES--SELECT TESTS 11,12 & 14 


ZOCTAL DIGIT? 
SYES=-=SAVE IT 

“MOVE TO NEXT CHARACTER 
SOCTAL DIGIT 


3NO- 4 
sMOVE TO NEXT CHARACTER 


; 


oO 
wm 


oa 


a NOE UIN— oo 


SSSSSSYBIFSVISSSAS 


dd td ad 
DWONAUSWN=—O 


WAG 
RWNLS 


a a ee ee ee ee eee 


Ww 


RMBO FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 32-17 SEQ 0126 
ECISION DIVISION SUBROUTINE 
7% ASL RS :SCALE HIGH DIGIT 
74 ASL R5 
741 ASL RS 
6 rag 02 - R5,R2 :COMBINE HIGH & LOW DIGITS 
0 7618 920297 000015 CMP R2,415 :VALID TEST NUMBER? 
0274 3 19 BGT GTTsTi :NO=-BRAN 
027404 10 37 027616 MOV R2,6 :SAVE THE TEST NUMBER 
0274 10204 MOV R2_RG [CONVERT TEST NUMBER INTO AN INDEX 
0274 2704 000017 BIC #17,R4 : UNWANTED BITS 
0274 04 ASR R4 SSHIFT THE BITS 
027 ASR R4 
02744 ASR R4 
027444 006302 ASL R2 
027446 036264 901560 001332 BIS BITS(R2), TSTNMS(R4) >SELECT TEST 
027454 121127 00005 CMPBs«é(RR1) , #*= sTEST STRING? 
027460 001 BNE TTST4 : CH 
027462 005201 INC R1 *YES=-MOVE TO NEXT CHARACTER 
027464 037 030570 JSR RO,CK.OCT SOCTAL DIGIT? 
7% 9 5 BR GTTsTi *NO--BRANCH 
72 010205 MOV R2,R5 SYES=-SAVE IT 
027474 005201 INC R1 [MOVE TO NEXT CHARACTER 
027476 004037 030570 JSR RO,CK.OCT SOCTAL DIGIT? 
7502 000405 BR 4$ : CH 
7504 005201 INC R1 TYES=-MOVE TO NEXT CHARACTER 
006305 ASL RS SSCALE HIGH DIGIT 
27510 006305 ASL RS 
027512 305 ASL R5 
m14 060502 in ADD R5,R2 :COMBINE HIGH & LOW DIGIT 
7516 020227 000015 CMP R2,415 :VALID TEST NUMBER? 
7522 003250 BGT GTTsT1 :NO=-BRANCH 
027524 023702 027616 CMP 6$,R2 71S THE FIRST NUMBER OF THE 
SSTRING SMALLER THAN THE LAST? 
7530 002245 BGE GTTST1 : 

32 010246 MOV R2,-(SP) *SAVE ENDING TEST NUMBER 
7534 013 92 027616 MOV [GET STARTING TEST NUMBER 
7540 012637 027616 MOV (SP)+,6$ SSTORE ENDING TEST NUMBER 
7544 006337 027616 ASL <3 [SHIFT ENDING TEST NUMBER 

550 006302 ASL R2 :SHIFT TEST NUMBER 

7552 010204 5$: MOV R2,R4 [COPY TEST NUMBER INTO R4 
7554 042704 000037 BIC 437,R4 *CLEAR LOWER BITS 

560 ASR RG *SHIFT THE TEST NUMBER 

362 04 ASR R4 

04 ASR RG 

366 006 04 ASR R4 

5 6264 001560 001332 BIS BITS(R2), TSTNMS‘R4) *SELECT THE TEST 
1376 02 000002 ADD #2,R2 sINECREMENT THE TEST NUMBER 
27602 020 027616 CMP R2.6$ *SEE IF FINISHED 
2 606 101761 BLOS 5 :BR I 

610 162702 000002 SUB #2,R2 *CORRECT TEST NUMBER 

7614 0 BR GTISTs : 

7616 6$: . WORD SSTORE TEST NUMBER HERE 

0 005201 GTTST3: INC R1 sMOVE TO, NEXT CHARACTER 

2 121127 000056 GTTST4: CMPB = (R1),#".. :" PERIOD’? 
7626 001461 BEQ GTTSTS + YES=-=BRANCH 
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001332 
001334 
027244 


000057 
177777 
000377 
177777 
013000 
001560 


000054 
027244 


027330 
001336 


001340 
027244 


000056 


027244 
001336 


001340 
027240 


Oo eie 
001336 
001340 
027240 


sCHECK TO OPEN TEST FOR PARAMETER CHANGE 
1$: 
2$: 


3$: 
4$: 


5$: 


6$: 


GTTSTS: 
C 


1$: 


GTTST6: f C 


1$: 
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IVISION SUBROUTINE 


TSTNMS 
TSTNMS+2 
GTTST1 


(R1) ,#°/ 


-1(R1) ,#°S 
#377 ,OPNFLG 
=1(R1) ,#'°T 
£15008 PUES 
eae 


(R1),#', 
GTTST1 
R1 

(R1) 

6s 
GTTST2 
OPNFLG 
OPNTST 
OPNFLG+2 
OPNTST 
GTTST1 
R1 
(R1),#°. 
GTTST6 
(R1) 

1$ 
GTTST1 
OPNFLG 
OPNTST 
OPNFLG+2 
OPNTST 
GT.PR2 


sANY TEST SELECTED THIS CYCLE? 
TANY TEST SELECTED THIS CYCLE ? 
“BR IF YES 


3NO--BRANCH 

sALL SEEK TESTS? 

:NO- H 

3YES--OPEN TESTS 0-7 

sALL TIMING TESTS? 

3NO--BRANCH 

sYES--OPEN TESTS 11,12 & 14 

YES--SET BITS FOR TEST TO OPEN 


3NO 
sMOVE TO NEXT CHARACTER 
:"CR’‘? 
cR° 
GET NEXT CHARACTER 
sANY seers TO OPEN ? 
zANY TESTS TO OPEN ? 
3BR YES 
ZNO--START AGAIN 

NEXT CHARACTER 
oD''? 


ANY TESTS TO OPEN ? 
‘ANY Tests TO OPEN ? 
:NO=-GO START TESTING 
:MOVE TO NEXT CHARACTER 
:"'cr'? 

 YES=-BRANCH 

[NO=-GO ASK FOR TEST 
ANY TESTS TO OPEN ? 
SANY TESTS TO OPEN ? 
*NO=-GO START TESTING 
ZOPEN THE SELECTED TEST FOR CHANGES 


SEQ 0127 
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DOUBLE PRECISION DIVISION SUBROUTINE 

1 

1388 0 104412 OPNTST: SAVREG ZSAVE RO = RS 

1384 0 00502 CLR (PC)+ [START WITH TEST 0 

1385 0 900000 OPN.CT: .WORD 0 *COUNT STORED HERE 

1 6 030072 000411 BR OPN.2 [SKIP THE INCREMENT 

1388 030074 005237 030070 OPN.17: INC OPN. CT :MOVE TO THE NEXT TEST 

1391 030100 022737 000015 030070 CMP #15,0PN.CT :TEST NUMBER TOO B1G? 

139¢ 030106 992005 BGE OPN.2 [NO=-OPEN THE NEXT TEST 

139 030110 10441 RESREG SRESTORE RO = 

1394 030112 000137 027244 JMP GTTST1 :YES=-GO ASK FOR MORE TESTS 

1396 030116 013705 030070 OPN.2: MOV OPN.CT,RS :SETUP TO USE THE 

1397 030122 006305 ASL R5 : TEST NUMBER AS AN INDEX 

1398 030124 013703 030070 MOV OPN.CT,R3 SGET INDEX 

1399 030130 042703 000017 BIC #17,R3 [CLEAR LOWER TEST BITS 

1400 030134 006203 ASR R3 *SHIFT TEST NUMBER 

1401 030136 006203 ASR R3 

1402 030140 006203 ASR R3 

1403 030142 036563 001560 001336 BIT BITS(RS) ,OPNFLG(R3) “OPEN THIS TEST? 

1404 030150 001751 BEQ OPN. 1 :NO=-MOVE TO NEXT TEST 

1405 030152 104401 030160 TYPE 65$ [TYPE ASCIZ STRING 

156 BR 4$ t:GET OVER THE ASCIZ 
-:65$: .ASCIZ / TEST / 
030170 64S: 

1406 030170 013746 030070 MOV OPN.CT.-(SP) | :;SAVE OPN.CT FOR TYPEOUT 
030174 104403 TYPOS 7:60 TYPE=-OCTAL ASCII 
030176 002 .BYTE 2 t:TYPE 2 DIGIT(S) 

030177 000 "BYTE 0 +: SUPPRESS LEADING ZEROS 

1407 030200 104401 001231 TYPE ,$CRLF CRLF 

1408 030204 016500 002352 MOV PRMPT(RS),RO  :PICKUP PARAMETER POINTER 

1409 030210 011046 MOV (RO) ,=(SP5 [SAVE THE VARIABLE INDICATOR 

1410 030212 012702 002320 MOV #PRM,R2 *FIRST ADDRESS OF TABLE 

1411 030216 000405 BR $ 

1412 030220 006216 1$: ASR (SP) sCHECK FOR A VARIABLE 

1413 030222 103403 BCS 2$ :G0 MOVE THIS ONE | 

1414 030224 001404 BEQ OPNPRM ‘DON 

1415 030226 005722 TST (R2)+ [BUMP THE POINTER 

1416 030230 000773 BR 1$ 

1417 030232 012028 2s MOV (RO)+, (R2)+ :MOVE THIS VARIABLE INTO THE 

1418 030234 000771 1$ [COMMON AREA 

1420 030256 013716 002320 OPNPRM: MOV PRM, (SP) :GET THE VARIABLE INDICATOR 

1421 03024 005004 CLR RG ZERO THE IND 

16ge 030244 006216 1$: ASR (SP) *CHECK FOR A VARIABLE 

1423 030246 103403 BCS 3$ :60 GET IT 

1426 030250 001772 BEQ SOUT OF VARIABLES 

1425 030252 005724 2s: TST (R4)+ [UPDATE THE INDEX 

1426 030254 000773 

1427 030256 3$: 

14 030 104401 940053 TYPE BLNKS2 :TYPE 2 BLANKS 

1433 030 016437 002434 030272 MOV PRMMSG(R4),4$  :TYPE THE NAME OF THIS VARIABLE 

1434 030270 104401 TYPE 

1435 030272 000000 4$ WOR 

1436 30274 104401 03674 TYPE MSG.EQ :TYPE ‘'="* 

1437 030 01644 232 MOV RPT(R4),-(SP) PUT RPT(R4) ON THE STACK 
030304 737 (02221 JSR PC,$SB2) [CHANGE TO DECIMAL ASCIZ 


Bs 
ee 


— 


pene 
Sess 
SSss 
Ross 
$332 $ 


33 
BE 


MAMI 
See 


SESSSSS 
Soooooooceo 
SSoSere 
RRSRNSF 


eee ee ee ee ee ee ee ee ee ed ed ed eed eed ed ed ed ed ad od td ed 


im ~N 
_ 


on 


03677 


030644 


030436 
000056 


030454 


002410 
030720 


002322 


002322 


030510 
030074 


002322 
030510 
000034 


027240 
001560 


002382 


5$: 
6$: 


7$: 


8$: 
9$: 


10$: 


OPN.N1: MOV 
OPN.N2: 


OPN.X1: MOV 
OPN.X2: 


1$: 
2$: 


3$: 
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"hee 


(SP)+,R1 
RO.CK.CHR 


R1 


PRMLMT(R4) ,R2 


RO,CK.DIG 


R2,RPT(R4) 

2s 

R2,RPT(R4) 
(SP)+ 

Pe, CLOSE 

OPN. 1 


R2,RPT(R4) 
(SP)+ 

n) CLOSE 
RS. wore 
3° 


GT.PR2 
Bi TSS) AS 


2s 





SEQ 0129 


i TYPE yl ygut LEADING ZEROS 
eee AN ASCIZ_ STRING 

K ONE CHARACTER 
ILLEGAL CHARACTER 
‘ee RETURN 


ipichy 0-9 


Nees TAY ON THIS VARIABLE 
3YES--MOVE TO NEXT VARIABLE 
31S THERE A “‘CR'* AFTER THE PERIOD? 


5 YES~~G0 CLOSE » THIS TEST 
; DOUBLE ag d 
sNO=-GO ASK FOR THIS VARIABLE 
3YES~=IS A “tR RY AFTER THE DOUBLE PERIOD? 
3NO=-ASK FOR THIS VARIABLE AGAIN 
7YES=-CLOSE ALL TEST 
;BACK THE POINTER UP BY ONE 


;UPPER LIMIT OF INPUT 
sCHECK THE DIGIT(S) 
SILLEGAL INPUT 


3 INPUT TO LARGE 
STERMINATED WITH A ‘',"° OR “CR 
STERMINATED WITH A ‘*."' 
; TERM ee 
SMOVE TO NEXT VARIABLE 
sSAVE THIS VARIABLE 
CLEAN a oo THE STACK 
;CLOSE THIS TEST 
760 OPEN THE NEXT TEST 
3 SAVE THIS VARIABLE 
LEAN 


3NO--BRANCH 
snestene RO = RS 


at: THIS TEST OPEN FOR CHANGE? 
zYES--GO CLOSE I 
3NO=-MOVE TO NEXT TEST 


3CLOSE CURRENT TEST THAT WAS OPEN FOR CHANGES 


CLOSE: 


#PRM,RO 
PRMPT (RS) ,R1 


:SAVE RO = RS 
FROM’ ADDRESS 
3""T0" ADDRESS 


3 
= 
2 


1. 
z 


o 
LJ 


we 
ern 


MEW 


ocoooooo 
SSSSSS 


SSSSSSSS5 


WII 
er ed 
S Cooo 
3 par peered 
= 2Suuy 
of = 


oO 


VMVIMVIVIVIVIV 
—_ 


o 
-_ 


SERSTSIIAL 
sgeee 


Soooooooooo 


S35 


& 
o 
SK 


ce ed ce ce ce ce ced ed ceed ed ed ed eed ed =» 


MUNI 

o 

~ 
VMI 


2 


S 


ee ee ek ae ad ad ed dd 
VRARAVLSSAINAUS UNS Oo 
So 
Coo = 
sse=ensn 


BSELSSRENLSS 


SMO 


ee ee ee ce ee ee cee ee ceed ceed ed ed ed ed eed eed ed eed end ed 
ae 


MMVIII 


Be 
2 oS 


seuSgEEE 
Soooooo 
5 
Ssk 


DETERMINE WHAT 
> CALL 


;“"FROM'' INDICATOR 
3"T0" INDICATOR 
3TEST BIT START A “RPT 

ZPARAMETER TO BE MOVED? 


3NO--BRANCH 
3A PLACE TO PUT IT? 


SYES=-MOVE FROM’ TO ‘TO’ 
:"'TO" PARAMETER? 
:YES=-UPDATE THE POINTER 


sUPDATE FROM POINTER 
sPOSITION THE TEST BIT 
; DONE? 


3NO--BRANCH 
sRESTORE RO = R5 
3RETURN 


sADDRESS OF ASCII _ CHARACTER 
; K THE CHARACT 

zCHARACTER IS NOT BETWEEN 0-7 
sCHARACTER IS IN R2 AS A 
sOCTAL DIGIT 


sLESS THAN ZERO? 
zYES == BRANCH 
3GREATER THAN SEVEN? 
;YES == BRANCH 

T THE CHARACTER 


3GE 

sSTRIP AWAY THE ASCII 
zADJUST FOR RETURN 
sRETUKN 


sADDRESS OF ASCII CHARACTER 
3CHECK THE CHARACTER 
;NOT BETWEEN 0 AND 9 
abe Tuer 0 AND 9 
3R2 = DIGIT 
sLESS THAN ZERO? 
;YES == BRANCH 

sGREATER THAN NINE? 
sYES -- CH 
3GET THE CHARACTER 
sSTRIP_AWAY THE ASCII 
sADJUST FOR RETURN 
;RETURN 
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008 MOV (RO)+,R 
MOV (R1)+.R 
704 000001 MOV #1,R4 
; 1$: BIT R4,R2 
40 BEQ 
03 BIT R4,R3 
04 BEQ $ : 
11 MOV (RO), (R1) 
03 2$: BIT R4,RS 
401 BEQ 
4 TST (R1)+ 
720 3$: TST (RO)+ 
304 ASL R4 
704 002000 BIT #BIT10,R4 3 DONE? 
763 BEQ 1$ 
413 RESREG 
207 RTS PC 
sTHIS ROUTINE IS USED TO CHECK IF AN 
SASCII CHARACTER IS A DIGIT BETWEEN 0 AND 7. 
: MOV #ADR,R1 
; JSR RO,CK.OCT CHEC 
3 RETURN1 
: RET 
127 000060 CK.OCT: C (R1),#°0 
407 LO 
127 000067 CMPB ss (R11), #°7 
004 BHI 1$ 
102 MOVB = (R1),R2 
702 177770 BIC #°C7.R2 
20 TST (RO)+ 
00 1S: RTS RO : 
sTHIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
SAND, DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9. 
; MOV #ADR,R1 
: JSR RO, CK.DEC 
: TURN1 : 
: RETURN2 
27 000060 CK.DEC: CMPB (R1),#°0 
07 BLO 1$ : 
27 000071 CMPB sé) ,#"9 
004 BHI  Ierieat 
102 -  MOVB  (R1),R2 
208 000060 BIC #°0,R2 
72 TST (ROS + 
200 1$: RTS RO : 
:THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 


rs 
SEQ 0130 









ZRNGAO RM8O F 
DOUBLE PRECISI 
1609 
1610 
1611 
16l¢ 
161 
1614 
1615 
1918 
161 
1913 
191 30644 
1691 030680 
1 § 54 
1 


: 
SxSnSns 


w 
io 


Searudaseeusos 
eapeooeasss 
RERSEEERICAtS 


g 
S 


me ee eed ee ed ed ed ed od ed = od 
AAA 


Se 


o 
MFwnovo 


DELELFELEFEE 


A 


1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DAAARAAO 

Www 

Huw —O ooo 
ooo 
SSS 
~N™N 


~ 
oO 


000057 
000054 
000056 
030616 


ed ed ed ed ed ed 
Rehm Re 
SvsueVuye= 

NONSNO— 


esssssess 






030644 
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: v #ADR,R1 
: JSR RO, CK.CHR 
; ETURN ADR 
: RETURN ADR 
: TURN ADR 
: RETURN ADR4 
; RETURN ADRS 
: RETURN ADR6 
CK.CHR: TSTB = (R1) 
BEQ 4$ 
CMPBs«(R1) , #"/ 
BEQ 3$ 
C (R1),#", 
BEQ $ 
re (R1) a". 
BEQ 
JSR RO,CK.DEC 
BR $ 
TST (RO)+ 
1$: TST (RO) + 
2$: TST (RO)+ 
3$: TST (RO)+ 
4$: TST (RO) + 
INC 1 
5$: MOV (RO) ,RO 
RTS 
sTHIS ROUTINE CHECKS AN A 
[CHARACTERS AND FORMS A D 
: JSR RO,CK.DIG 
: RETURN ADR 
: RETURN ADR 
: RETURN ADR 
: RETURN ADR4 
: RETURN ADRS 
CK.DiG: MOV R4,-(SP) 
MOV R3,-(SP) 
MOV R2,~(SP) 
CLR R 
CLR R 
CLR RG 
JSR RO,CK.CHR 
95 
9$ 
9$ 
9$ 
9$ 
1$ 
1$: ASL R 
MOV R3.~(SP) 


SCI 
ECI 


sADDRESS OF ASCII CHARACTER 
CHECK CHARACTER 


3 CHARACTER 

CARRIAGE RETURN * (R1)=ADR+1 
SLASH * (R1)=ADR+1 

sCOMMA * (R1)=ADR+1 

PERIOD * (R1)=ADR+1 

:DIGIT BETWEEN 0 AND 9. 

zR2 = DIGIT * (R1)=ADR+1 


z""CARRIAGE RETURN‘? 
sYES << CH 


3NO == H 
sDIGIT BETWEEN 0-9 
3PERIOD 

3 SLASH 

s CARRIAGE RETURN 

sMOVE POINTER TO NEXT CHARACTER 
UNKNOWN CHARACTER 


3RETURN 


I STRING FOR LEGAL 
MAL VALUE BINARY NUMBER IN R2. 


sADDRESS OF ASCIZ_ STRING 
3MAX. MAGNITUDE OF INPUT NUMBER 
sCHECK DIGITS 


ILLEGAL CHARACTER == R2=? 
3INPUT NUMBER TO LARGE =~ R2=? 
3“COMMA'' == R2_= NUMBER 
;PERIOD' == R2 = NUMBER 
;PERIOD-PERIOD"’ -- R2 = NUMBER 
sSAVE RG 


sSAVE R3 
3SAVE_THE MAX. SIZE ON THE STACK 
sSTART WITH 0 


;CHECK ONE CHARACTER 
ILLEGAL_CHARACTER 
i CARRIAGE “RETURN 


:D1GIT 0-9 
SSAVE *2 
“4 


SEQ 0131 


: 


: 





gg38 


SESEE 


S388: 
oo 
ooooo 


o 
~“ 
wn 
oO 


ced ed ed ed ed I dS I 
N“ 
& 
L=) 


SAVOT 


SLSSRRSEE 


AAA 
SPSSSSE 


POOR AAAAAAAAAAAO 
IN 
BRSSSSLE 


nN 


EO ned med ent nd 
“S 


= 
So 


SSSse 
ASES 


x 


SOOSOOOOSOOOOSCCSCSO 
4 BSSSSESSSS 
eeessscsees 


Ooooo 
WINN 


AIAN 


m 
o 
lad 
“nn 
——w 


ease 


Oo: 
Sb a et a 


ENSSRSOR 


ve 
a pet aed ad --d 


PERSE St Soa tsa" 


- 
o 
nN 
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SasssS 


~_— 
NS RISER EAOCOCO 


t=) 
$ 
BISese 


3 


re 
oon 


oo 
A 


—— 
~“ 
33 


-—oOoO— 
Oonor 
=—Oo=—O 
wo 
S=SN= 
—ALENOS 


oeesese 
SSUES 
AMOS 


SS38 


oO 
= 
NUN 


oo 
par Por Dart 


030644 


030644 


177776 000054 


030570 
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R3 
(SP)+,R3 
Re RS 
RO,CK.CHR 


R1 

4$ 

(R4)+ 
(R4)+ 
RO,CK.CHR 


(R4)+ 
(R1) 
7% 
$ 
-2(R1) ,#', 
re) 
R3, (SP) 
8 


sTHIS ROUTINE CHECKS AN ASC 
;AND FORMS AN OCTAL NUMBER 


R3,~(SP) 
? Toccata 


¢ 11 


zS$ 
NR 





SEQ 0132 


38 

3 (#8) 4(#2)=010, 

UPDATE THE INPUT NUMBER 
:;CHECK ONE CHARACTER 

s ILLEGAL CHARACTER 

fn IAGE RETURN 


:DIGIT 0-9 

;BACKUP THE CHARACTER POINTER 
CON IN * 

3, PERIOD o oe 

3""COMMA 

sCHECK ONE CHARACTER 

ZILLEGAL CHARACTER 

SF AMRASE RETURN 


sDIGIT 0-9 . 

3, PERIOD-PERIOD" 

3"'CR’'? 

2 YES--BRANCH 

;WAS CHARACTER BEFORE THE DIGIT A COMMA? 
sNO--EXIT 


3 I 

z INPUT TO LARGE? 

:YES == BRANCH 

sADJUST RETURN ADDRESS 


;NUMBER TO R2 

[CLEAN MAX. SIZE OFF OF STACK 
*RESTORE R3 

SRESTORE R4 

[GET RETURN ADDRESS 

= RETURN 


TRING FOR LEGAL CHARACTERS 


sADDRESS OF ASCIZ STRING 
;G0 FORM TH ER 


3 ILLEGAL CHARACTER _IN THE INPUT STRING 
"COMMA OR *'CR''=-R2=NUMBER 


P =NUMBER 
*PERIOD-PERIOD''--R2=NUMBER 


3SAVE_R3 

3START NUMBER AT ZERO 
sOCTAL DIGIT? 

; NO--BRAN 


: CH 

sMOVE TO NEXT CHARACTER 

3FOR THE OCTAL NUMBER IN R3 
;DON'T LET IT GET TO BIG 


: 


| 


3838 


uw 


oO 

=o Sz 

<v 

SaSus Sz 
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D 11 


2 
_vv~v 
pe ert 
WN—oO 
= 
Wo 


oooooo 


RNSSERSENSSEEOFELVS 
Oe 


SERS 
™~ 
Ww fos 


s 


FUN SO OONOues 
ad ad ed 
AENO 
sy 
aS 


NINN 
ooo 


eee ee ed ed ed ed ed ed od od 
w 


MMO = 
RoRoPoRonon 
ron 
No 
soe 
— ae 
=n 
— 


So 
So 


S 


0133 | 
ION SUBROU 
R3 : 
6$ 
age 
030570 RO,CK.OCT 31S THIS AN OCTAL DIGIT? 
2s 3NO--F OUT WHAT IT IS 
1$ ZYES--MAKE IT PART OF THE NUMBER 
2s: MOV R3,R2 3SAVE_THE OCTAL NUMBER 
CLR R3 START WITH ZERO INDEX 
030644 JSR RO,CK.CHR 3CHECK ONE CHARACTER 
$ s ILLEGAL CHARACTER 
$ 3CARRIAGE RETURN 
6$ BS 
2$ a 
3$ eo o 
é$ :DIGIT 0-9 
3$: TST (R3)+ 3’ PERI 
000056 a ly #. Naas | taal 
INC RI ZYES=-ADVANCE THE POINTER 
4$ TST (R3)+ 3‘ PERIOD=-PERIOD"’ 
5$ TST (R3)+ 5° be 
TSTB (R1) 3""CR'*? 
BNE 6$ 3NO--BRANCH 
ADD R3,RO ZYES--SAVE_THE OCTAL NUMBER 
6$ MOV (SP)+,R3 ; ER 
MOV 0), sPICKUP EXIT ADDRESS 
RTS ;RETURN 


o 
~ 


: 
z 
m 
o 
Cond 
i74) 


$s 


43 031224 000000 000000 000000 


REA LESENEAEUNLS YONI 


45 
46 
47 
48 


49 
50 03123 
53 O3iss 


TNL 


DIVISION SUBROUTINE 


SSS83833 33332333 


S338 
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E 11 


«SBTTL SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
1981 


sCOPYRIGHT (C) hag 


‘DIGITAL EQUI 
MAYNARD 
AUTHOR (§) : 


T CORP 
oH 


CHUCK HESS 
SREVISED BY: MIKE LEAVITT 


f ERRRARAAAAAAEAERRARRAERERERERAARERERRERERRERRERERRRRRRRERERRER EE 


3 STORAGE | FOR RADS. | RMER1 AND RMER2 ON AN ERROR ''2"' 


RMERRS: 


DRVACT: 


3TABLE OF DRIVE STATUS IN 
sDRVSTA=0 IF Vv 


DRVSTA: 


CRMERRS*+4 = 


RMDS 


RMER2 
0.0.0 
TABLE OF sett auth: Lon mee =8 BYTES) 


L 
DRVACTSO IF DRIVE IS ACTIVE WITH A 


COMMAND 
ZDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


-BYTE 
-BYTE 
-BYTE 
BYTE 


TE 
BYTE 
YTE 


Sooooooo 


;DRVSTA>O IF D 
SDRVSTA<O IF D 


-BYTE 


TABLE OF te 
DRVIYP=1 IF DRIV 


DRVTYP: 


SDRVTYP==1 IF NOT 


-BYTE 
-BYTE 
-BYTE 

-BYTE 


0 
0 
0 
0 
0 
0 
0 


P=0 


IF 


I 
DRI 
RIV 
RIV 


DRIV! 


{DRIVE 


; (DRVSTA=8 BYTES) 


sDRIVE § 
:DRIVE 


TYPES (DRVTYP=8 BYTES) 
VE i uaa (DRVSTA=0, ALSO) 


XSITENT 


SEQ 0134 


me ee ed ed eed ed eed eed ed ed et ed nd od = 


Ray 


oooooeoo 
= 


WNWWIAWAA 
pal pat at et ee 


VRARA 


0 


w 
= 
aa 
~ 
—~ 


031324 


RANUSSSVERRAVLOS 


38333338 


See | essneees 


000000 


000000 


F 11 
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BYTE sDRIVE 4 
BYTE DRIVE 5 
BYTE DRIVE 
-BYTE O sDRIVE 

3 TABLE OF ppint PORT INITIALIZATION INDICATORS 

INT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 

<PINT<O IF INITIALIZATION IS IN PROGRESS 

DPINT: .BYTE 0 sDRIVE 0 
BYTE 0O DRIVE 1 
-BYTE O sDRIVE § 
BYTE 8 sDRIVE 
BYTE sDRIVE 4 
-BYTE OQ sDRIVE 5 
-BYTE 0 sDRIVE § 
-BYTE O sDRIVE 

3 TABLE OF ophonea” —_ PORT REQUESTS 

QS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 

se Res<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 

DPROS: .BYTE O sDRIVE 0 
-BYTE O sDRIVE 1 
-BYTE O sDRIVE § 
-BYTE 0O sDRIVE 
-BYTE O sDRIVE 4 
-BYTE O sDRIVE 5 
-BYTE 0 sDRIVE § 
-BYTE 0O DRIVE 

sDRIVE REQUEST QUE WORDS 

QDRV: eWORD 0 sDRIVE 0 
WORD 8 sDRIVE 1 
WORD sDRIVE ¢ 
eWORD 0 :DRIVE 
eWORD 0 sDRIVE 4 
eWORD 0 DRIVE 5 
eWORD 0 sDRIVE § 
eWORD 0 DRIVE 

; TRANSFER WAIT FLAG Saree ae WORD) 
:THIS1S_A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 

:"DPB’’ OF THE 1/0 OPERATION 

TRNSWT: .WORD 0 

;SEARCH WAIT Keys (SRCHWT=1 WORD) 
sTHIS IS A ONE WORD THAT WILL CONTAIN A KEY FOR EACH OF 
3 THE DRIVES THAT ARE PE ING A SEARCH or FOR THE 1/0 

ZREQUEST THAT T THE TOP OF THEIR REQUEST eue te 

EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 


3RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 





F 


a3 
#4 


satadadad PT 


COnNQu 


031327 


031330 


Lal Ww MIMININD mVuny 
BRUSSSVSVEARASD 


031332 


ed ek ed ed ed td dd 
SRE W 


tet te 

COs 

oo 
aA 
pay 
% 


031346 
031350 
031352 


031354 


MUAMAVIUIUIM UIT 


031356 


meee ee ee cee ee ce ee ed ee ed ed eed ed eed ed ed eed 


oO 


177777 


177777 


177777 


177777 


001 


176700 
000254 
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002 


000240 


04.00 15-JAN- 


004 
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sACTDRV=0 IF ORIVER IS INACTIVE 
SACTDRV>O IF DRIVER IS ACTIVE 
ACTDRV: .BYTE 0 


3 SOFTWARE TIMER ROUTINE ACTIVE rick ae BYTE) 
ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
SACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE 0 
3 SAVE necisvers wy (SAVEFG =1 WORD) 
3 SAVE IF SAVE THE RH/RM sp thes WHEN THE 
ERATION IS COMPLETED AS PER (DPB+ 
SSAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
7 (DPB+14), AFTER AN ERROR. 
SAVEFG: .WORD 0 


3SEEK FLAG (SeeKt Gn WORD) 
Ft KFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
ATA_TRANSFER START A SEARCH 
I SPEKFGCO IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
SDISREGARD THE WINDOW 


SEEKFG: .WORD <1 


zTIMEOUT TABLE (TIMER=8 WORDS 
sTHIS TABLE CONTAINS: THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD <1 sDRIVE 0 
-WORD <1 sDRIVE 1 
-WORD 1 sDRIVE 2 
WORD 1 sDRIVE 3 
WORD -1 sDRIVE 4 
WORD -1 sDRIVE 5 
WORD -1 sDRIVE 6 
WORD -1 sDRIVE 7 
3DATA TRANSFER . ore yg ld (DTUW=1 WORD) 
zDTUW<O IF NO DATA TRANSFER UNDERWAY 
SDTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
DTUW: .WORD -1 


ATTENTION BITS TABLE (ATABIT=8 BYTES) 
HIS TABLE FpeTAInS THE CORRESPONDING BIT TO EACH DRIVES 
ATTENTION BIT 


ATABIT: .BYTE 1,2,4,10,20,40,100,200 

ZSTORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE Byte cj 
SRMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL ( 5. 
RMADR: .WORD 476790 

RMVEC: .WORD  254,5*32. 


SEG 0136 
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NGLE/DUAL PORT RH70/ DRIVER (REV 
1 ;SEARCH DIFFERENCE IS 5 FIVE SECTORS 
178 031374 000005 MXWNDW: .WORD 5 
He sDEFINITIONS OF THE RH70/RM80 ADDRESS INDEXES 
i? 000000 RMCST = 0 : CONTROL AND STATUS wih #1 (DRIVE REG. 0) 
178 000002 RMWC =2 WORD COUNT ate ER (NOT A nie REG) 
179 000004 =4 SUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
180 000006 A = 6 DESIRED ange RADDRESS REGISTER (DRIVE REG. 5) 
181 000010 RMCS2 = 10 TAT “: STER #2 (NOT A DRIVE REG) 
182 000012 Ss = 12 ‘DRIVE STATUS REGISTER pnive REG 1) 
183 000014 RMERT = 14 TERROR REGISTER # (DRIVE G. 2) 
184 adh RMAS = 18 ZATTENTION SUMMARY PSEUDO R REGISTER (DRIVE REG. 4) 
185 00002 s 7LOOK AHEAD REGISTER (DRIVE REG. 7) 
186 000022 RMDB = 22 ;DATA_BUFFER REGISTER (NOT A DRIVE REG.) 
187 000024 RMART == 24 sMAINTAINABILITY REGISTER n (DRIVE REG. 3) 
188 000026 RMDT = 26 DRIVE TYPE REGISTER (DRIVE REG. 6) 
189 0000 = 3 3SERIAL NUMBER REGISTER a he REG. 10) 
190 00003 RMOF = [OFFSET REGISTER (DRIVE REG. 11) 
191 000034 RMDC = 34 DESIRED CYLINDER Das ahi Ss one it (DRIVE REG. 12) 
136 000036 RMHR = 36 3: HOLDING REGISTER" ( OG on 
19 sia a = 40 sMAINTENANCE REGISTER # CORIVE, ae6. 14) 
194 00004 RMER = 42 ZERROR REGISTER #2 (DRIVE REG. 15) 
195 000044 RMECT = 44 sECC POSITION REGISTER (DRIVE REG. 19) 
196 000046 RMEC2 = 46 SECC PATTERN REGISTER (DRIVE REG. 


S 





CZRNGAO RMBO FCTNL PT4 MACRO v04.00 15~JAN-82 07:05:59 PAGE 34 SEQ 0138 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
1 ;RH70/RM80 DRIVER INITIALIZATION CODE 
¢ sTHIS ROUTINE WILL DETERMINE WHICH RMBO DRIVES ARE 
TAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
4 710 THE PROPER STATE FOR EACH DRIVE. 
5 *NOTE: THIS ROUTINE CALLS DRVINT 
‘ 3 CALL 
9 : JSR PC, RMINIT 
19 3 RETURN 
i SNOTE: THE "P* OR "L* CLOCK MUST BE STARTED 
14 031376 104412 RMINIT: SAVREG :SAVE RO = RS 
15 031400 01 746 177776 MOV aaPs.-(SP) [SAVE THE PRESENT PROCESSOR STATUS 
16 031404 012737 000240 177776 MOV #<5252.>,a#PS :CHANGE THE PRIORITY TO 5 
17 031412 006737 036134 JSR PC, CLRQUE [CLEAR ALL REQUEST QUEUES 
18 031416 912701 031224 MOV ARMERRS RI [FIRST ADDRESS TO BE CLEARED 
19 031422 012702 031332 MOV #SEEKFG,R2 [LAST ADDRESS TO BE CLEARED 
20 0314 6 005021 1$: CLR (R1)+ : 
21 0314 9201 é CMP R1,R2 TARE WE DONE? 
g 316 1017 BLOS~=s«é1S [BRANCH IF NO 
23 031434 012702 031354 MOV #DTUW,R2 [LAST ADDRESS 
24 031440 012721 177777 2s: MOV #~1,(R1)+ INITIALIZE 
25 031444 020102 CMP R1,R2 : DONE? 
26 031446 101774 BLOS [LOOP IF NO 
27 031450 005037 031242 CLR DRVSTA [SET ALL DRIVES TO OFFLINE 
28 031454 005037 031244 CLR DRVSTA#2 
031460 005037 031246 CLR DRVSTA+4 
031464 005037 031250 CLR DRVSTA 
1 031470 013703 031370 MOV :SETUP THE RH70/RM80 VECTOR 
031474 137e 035526 MOV #ISR, (R3)+ 
33 031500 013713 0313 MOV t+ 
% 031504 13704 051366 MOV RMADR,R sFIRST ADDRESS OF RH70/RM8O 
5 031510 12764 600040 000010 MOV #40,RMCS2(R4)  :MASSBUS INIT 
031516 00 901 CLR R1 SSTART WITH DRIVE 0 
031520 004037 031610 3$: JSR RO, DRVINT TINIT THE DRIVE 
031524 000401 BR 4$ :"DVA’ NOT SET 
031526 000402 BR 5$ : RETURN 
40 0315 105 031242 4$ CLRB = DRVSTACR1) [SET DRIVE STATUS TO OFFLINE 
41 031534 005201 5$ INC R1 760 TO NEXT DRIVE 
4¢ 031536 042701 177770 BIC #°C7,R1 [MASK OUT UNUSED BITS 
43 031542 001 3$ [BR IF MORE DRIVES TO GO 
44 0 1544 Ole J 7 #7,R1 *START WITH DRIVE 7 
45 031550 1 z CLR S [CLEAR THE PROCESSOR STAT 
46 031554 105761 0312 63: TSTB INT(R1) [WAITING FOR DRIVE TO SWITCH PORTS ? 
4 031560 001403 BEQ *BR NOT WAITING 
48 031 0047 7 0 JSR PC,SET.IE *SET INTERRUPT 
49 0 1366 1 5761 936066 7$: TST PINT CRI) SDRIVE SWITCHED PORTS ? 
50 0315 901373 :BR IF NOT 
51 031574 005301 8$: DEC R1 760 TO THE NEXT DRIVE 
3 031576 1 366 BPL ot SCHECK NEXT DRIVE _ 
53 031600 012637 177776 MOV (SP)+,aaPS SRESTORE THE PROCESSOR STATUS 
54 0 1604 104413 RESREG SRESTORE RO - R 
55 031606 00020 RTS PC [BYE-BYE 
f :DRIVE INITILIZATION ROUTINE 
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FCTNL PT4 MACRO VO4.00.15~JAN=82 07:05:59 PAGE 34~1 SEQ 0139 
T RH70/RMBO DRIVER ( 


sTHIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
TAN RMBO. if I TJs A 'READ-IN PRESET’ IS ISSUED AND FMT16 
31S SET 10 A “"1"". THEN NMOL; DPR, DRY, AND VV ARE CHECKED 10 
SINSURE THEY ARE ALL ON A “1'', AND DEPENDING ON THEIR STATE, 
a SDRVSTA IS SET TO THE PROPER CONDITION. 
: MOV #DRVNUM,R1 DRIVE NUMBER T 
: MOV RMADR ,R4 ‘UNIBUS ADDRESS OOF 1 H70/RNBO (RMCS1) 
F JSR RO, DRVINT CALLED BY A JSR 
: RETURN TERR LF OF CURRED ("NED") 
; RETURN2 SEORAAL RETURN 
031610 010546 DRVINT: MOV RS,-(SP) :SAVE RS 
031612 105061 031242 CLRB = DRVSTA(R1) ‘START DRIVE STATUS AS OFFI.INE 
031616 105061 03125 CLRB DRVTYP (RI) CLEAR THE DRIVE TYPE INDICATOR 
031622 010164 000010 MOV RMCS2(R4) SELECT A DRIVE 
031626 112764 000111 000000 MOVB ai Ries? (RG) *DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
03 032764 010000 000010 BIT #B1TI2,RMCS2(R4) ;NONEXISTENT DRIVE? 
031642 001403 BEQ 1$ :NO---BRANCH Sissi 
031644 004737 036062 JSR PC,SET.IE 760 SET IE'’ WITHOUT A "TRE 
031650 000476 BR 4$ SLEAVE THIS ROUTINE 
031652 105061 031242 1$: CLRB = DRVSTACR1 tSET DRIVE STATUS TO OFFLINE 
031656 032764 000000 BIT #B1T11, RACST(RG) “SEE IF DRIVE AVAILABLE 
031664 001470 BEQ 4$ :BR IF DRIVE NOT AVAILABLE 
031 004037 035552 JSR RO,RD.RM [CALL THE READ ROUTINE 
031672 000026 RMDT :REGISTER OFFSET 
031674 032050 5$ "NED" 
031676 012605 MOV (SP)+,R5 PUT DRIVE TYPE IN RS 
031700 112761 000001 031252 MOVB #1,DRVTYP(R1) SET RM80 INDICATOR 
031706 022705 020026 CMP #20026,R5 tIS IT A SINGLE E PORT RM80? 
031712 001407 BEQ 2$ [BRANCH IF 
031714 022705 024026 CMP #24026,R5 t1S IT A DUAL PORT RM80? 
031720 001404 BEQ $ [BR IF YES 
031728 112761 177777 031252 MOVB #-1,DRVTYP<R1) :SET INDICATOR TO ‘OTHER’ 
031730 000446 BR ZEXIT i" 
031732 012746 000121 2s: MOV #21 -(SP) *DO A “READ-IN PRESET 
0 36 004037 035632 JSR 0,WRT.RM [CALL THE WRITE ROUT INE 
0 000000 RMCS1 3REGISTER OFFSET 
031744 952050 5$ S"NED® RET 
01274 910000 MOV WBIT12.-(SP)  :SET FMT1 
004037 03563 JSR RO, WRT .RM *CALL THE WRITE ROUTINE 
031756 000032 RMOF SREGISTER OFFSET 
031760 952030 5$ :"NED® RET 
031762 004037 035552 JSR RO,RD.RM *CALL THE READ ROUTINE 
31766 12 RMDS SREGISTER OFFSET 
1 9 03 050 5$ :"NED* RETURN 
97 031772 012605 MOV (SP)+,R5 SAND SAVE IT IN RS 
31774 100015 BPL 3$ “BRANCH IF ATA=0 
31776 116164 031356 000016 MOVB ATABIT(R1) RMAS(RG) :CLEAR_ ATTENTION BIT 
004 004037 03555 JSR RO,RD.RM Li THE READ ROUTINE 
14 RMER1 | TREGISTER OFFSET 
ete 5 *"NED* RET 
014 906126 ROL (SP)+ [1S IT UNSAFE? 
1 BPL $ ‘BR IF NOT 
33020 112761 177777 031242 MOVB #=1,DRVSTA(R1) :SET UNSAFE INDICATOR 
32026 000407 BR 4$ EXIT 
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RMA PORIVER (REV 0.17 


167077 
000001 031242 


4$: 
5$: 


RS HECK 
Ree cairi2:B1T0B!bst 7'BIT 


; BRANCH 
3SET DRIVE not DP "6 ON 
TEP 0 VER THE ERROR baa 


#1,DRVSTA(R1) 
(RO)+ 
(SP)+,R5 

RO 


Mot Re DPR, DRY, AND VV 
4 - vv IS CLEAR 


SEQ 0140 
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CZRNGAO RM8O FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 35 SEQ 0141 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


1 REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
5 3; CALL 
5 : JSR RO, RM8O sCALL THE RM80 D 
6 3 PNTADR ADDRESS OF SOINTER. GF DRIVES PARAMETER BLOCK 
7 $ RETURN1 * RETURN HERE IF QUEUE IS FULL 
8 Z RETURN2 RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
3 71S AN ERROR CONDITION 
11 032054 013746 177776 RM80: MOV aA4PS,- 3 SAVE THE apy STATUS 
i 032060 013737 ELE 177776 MOV RAVE 2 OPS *DON® T ALLOW ANY RM80 INTERRUPTS 
13 032066 112737 000001 031326 MOVB 1,ACTDRV 3SET “ACTIVE DRIVER’ FLAG 
14 032074 104412 SAVREG -R 
15 032076 011002 MOV (RO) ,R2 <PICKUP T HE D DRIVE PARAMETER BLOCK POINTER 
16 032100 005062 000016 CLR 16(R2) * CLEAR 7 STATUS/ERROR INDICATOR 
17 032104 111201 MOVB (R2) ,R1 *PICKUP T HE DRIVE NUMBER 
18 032106 613704 031366 MOV RMADR,R4 sUNIBUS ADDRESS OF RMCS1 
19 032112 105761 031242 TSTB DRVSTACR1) + CHECK DRIVES STATUS 
20 032116 003011 BGT CH IF ONLINE 
21 032120 105761 031262 TSTB —DPINT(R1) ; TRYING TO INIT THE DRIVE 
22 032124 001027 BNE IF YES 
23 032126 004037 031610 JSR RO,DRVINT °60 INIT. THE DRIVE 
24 032132 000421 BR TERROR R 
25 032134 105761 031242 TSTB DRVSTACR1) IS DRIVE STATUS ONLINE? 
26 032140 003432 BLE <BR 
27 032142 105761 031272 1$: TSTB DPRQS(R1) i OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
28 032146 001016 BNE YES 
032150 010164 000010 MOV R1,RMCS2(R4) eFLeer THE DRIVE 
30 032154 004037 036200 JSR RO, DRVQUE ‘PUT THIS Teed IN QUEUE 
31 032160 000445 BR TQUEUE IS FUL 
32 032162 105761 031232 23: TSTB DRVACT(R1) 1S THIS DRIVE ACTIVE? 
33 032166 001037 BNE 7$ *BR 
32170 004737 032312 JSR PC,OPT [CALL THE OPTIMIZER 
35 032174 000434 BR 
032176 004737 033410 3$: JSR PC,C18 :G0 HANDLE THE "NED* 
37 032202 000431 BR 
32204 004037 036200 4$: JSR RO, DRVQUE sPUT REQUEST IN QUEUE 
39 032210 000431 BR SQUEU 
40 032212 032714 000100 BIT #BITCS, (R4) 31S We SET ALREADY ? 
41 032216 001023 BNE IF IT IS 
42 032220 004737 036062 JSR PC,SET.IE :SET INTERRUPT 
43 032224 600420 BR “RETURN, REQUEST IN QUEUE 
44 052226 103761 031242 S$: STB —— i SEE IF DRIVE OFFLINE OR UNSAFE 
032054 oOges 140000 000016 MOV #B1T15! BIT14, 16che) SET OFFLINE ERROR INDICATOR 
47 032242 105761 031252 TSTB yP(R1) sSEE IF OFFLINE OR NONEXISTENT 
48 032246 001007 BNE i “BR IF OFF Uf NE 
49 032250 012762 100002 000016 MOV a REPORT DRIVE NONEXISTENT 
50 032256 000403 BR 7$ 560 x 
51 0322 012762 110000 000016 6$: MOV #BiT15!B1T12,16(R2) greets 2 1S _iNSAFE 
52 032266 10441 7$: RESREG sREST 
53 032270 005720 TST (RO)+ FOR NORMAL RET 
34 032878 000401 BR $ <RINISH UP, THEN EXIT 
5 032274 104413 8$: RESREG * RESTORE R - RS 
36 032876 005720 9S: TST (RO)+ 3CORRECT, THE “RETURN ADDRESS 
57 032 105037 031326 CLRB ACTDRV * CLEAR ACTIVE DRIVER’ FLAG 
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CZRNGAO RM8O FCTNL PTS MACRO V04.00 15-JAN-82 07:05:59 PAGE 35-1 SEQ 0142 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
58 032304 012637 177776 MOV (SP)+,aaPS sRETURN ‘'PS'' TO USER LEVEL 
39 032310 000200 RTS RO SRETURN TO CALLER 
61 sOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 
63 CALL 
64 : MOV #DRVNUM,R1 DRIVE NUMBER TO R1 
65 ; JSR PC,OPT :SETUP A COMMAND 
67 032312 104412 OPT:  SAVREG sSAVE RO = RS 
68 032314 013746 177776 MOV aaPS,-(SP) 3SAVE PROC. STATUS 
69 032320 004737 036222 JSR PC, GETREQ “GET DPB’ POINTER OF REQUEST 
$ 032324 005702 TST R2- 71S THERE A REQUEST IN QUEUE? 
032326 001510 BEQ 9$ [NO=-BRANCH TO EXIT 
72 032330 032764 004000 000000 BIT #B1T11,RMCS1(R4) 71S BVA SET? 
33336 001407 BEQ $ :BRANCH IF NOT 
74 032340 032764 000100 000012 BIT WBIT6,RMDS(R4) 31S VV SET ? 
75 032346 001003 BNE :BR IF IT IS 
76 032350 004037 031610 1$: JSR RO,DRVINT iSEE IF DRIVE STILL ONLINE ? 
77 032354 73 BR :"DVA" NO 
78 032356 105761 031242 2$: TSTB - DRVSTA(R1) 31S DRIVE ONLINE? 
79 032362 003014 BGT 3$ CH 
80 032364 004 036234 JSR PC ,POPQUE MOVE REQUEST FROM QUEUE 
81 032370 012762 140000 000016 MOV PC PORQUE, sock RET OFFLINE STATUS/ERROR INDICATOR 
82 032376 105761 031242 TSTB  DRVSTA(R1) z1S DRIVE UNSAFE 2 
83 032402 100067 BPL 10$ “BR TO EXIT IF 
84 032404 012762 110000 000016 MOV #B1T15!B1T12,16(R2) SET Uusare t FATUS/ERROR INDICATOR 
RS 052412 000463 BR 10$ ;BRANCH TO EX 
86 032414 012746 000111 3$: MOV #111,-(SP) [LOAD ConA ON ONTO THE STACK 
87 032420 004037 035632 JSR RO,WRT.RM CALL THE WRITE ROUT INE 
032424 000000 RMCS1 3REGISTER OFFSET 
032426 032544 8$ "NED' RETURN 
88 032430 032714 004000 BIT #B1T11, (R4) ‘DRIVE AVAILABLE ? 
89 032434 001432 BEQ 7$ ‘BR IF NOT 
90 032436 122762 000150 000002 CMPB —s- #150, 2(R2) 31S THE REQUEST FOR 1/0? 
91 032444 002403 BLT 4$ + YES--BRANCH 
92 032446 004737 033032 JSR PC,C14 *CALL THE COMMAND INITIATOR 
93 032452 000443 BR 10$ SBRANCH TO EXIT 
94 032454 005737 031354 4$: TST DTUW :DATA TRANSFER UNDERWAY? 
95 032460 002015 BGE 6$ YES--GO START A SEARCH 
032462 136137 031356 031324 BITB ATABIT(R1), srcHut” SF TNISHED A SEARCH ? 
97 032470 001003 BNE sIF°NE, YES 
98 032472 005737 031332 TST SEEKFG *DO IMPLIED SEEKS? 
99 032476 1 BPL :1F PL_DO A SEARCH 
100 032500 146137 031356 031324 5$: BICB ATABIT(R1),SRCHWT CLEAR "SEARCH WAIT'’ KEY 
101 052506 004737 032572 JSR PC,CI1 sSTART A DATA TRANSFER 
10 03251 000425 ) BR 10$ 
103 032514 004737 032724 6$: JSR PC,C13 :START A SEARCH 
104 032520 000420 BR *G0 TO THE EXIT 
105 032522 112761 177777 031272 7$: MOVB #-1,DPRQS(R1)  :SET PORT REQUEST INDICATOR 
106 0325 10103 MOV R1,R3 3SET UP TO ADDRESS WORDS 
107 032532 303 ASL R CONVERT TO WORD INDEX 
108 052534 012763 035230 031334 MOV #15000. ,TUMER(RSS “START 15 SECONE TIMER 
110 pa5ee4 ied 033410 8$: JSR C.c18 ZPROCESS THE 'NED' 
111 032550 032714 000100 9$: BIT Ma T06, (R4) +SEE IF HE ALREADY SET 
112 032554 001002 BNE BR IF 
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TNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 35-2 
T RH70/RM80 DRIVER (REV 0.17) 
004737 2 JSR C,SET.IE 
012637 936062 10$: MOV CSB )+,aaPS 
104413 RESREG 
000207 RTS PC 
sCOMMAND INITIATOR 
3; CALL 
: MOV #DRVNUM,R1 
3 MOV #DPB,R2 
; JSR PC,Ci? 
;START A DATA TRANSFER 
004737 036234 C11: JSR PC ,POPQUE 
010237 031322 MOV R2. TRNSWT 
010203 MOV R2,R3 
013704 031366 MOV RMADR .R4 
010164 000010 MOV R1,RMCS2(R4) 
062703 000004 ADD: #4.R3 
062704 000002 ADD #2.R 
0123246 MOV (R3)+, (R4)+ 
012324 MOV (R3)+, (R4)+ 
012346 MOV (R3)+,=(SP) 
004037 035632 JSR RO,WRT.RM 
000006 RMDA 
033410 C18 
012346 MOV (R3)+,=(SP) 
004037 035632 JSR RO,WRT.RM 
000034 RMD 
033410 C18 
004037 035552 JSR RO,RD.RM 
000032 RMOF 
033410 C18 
04271 001000 BIC #B1T09, (SP) 
037 035632 JSR RO,WRT.RM 
000032 RMOF 
SF2346 000 Ge oacre) (SP) 
tae 900008 JSR RO,WRT.RM 
RACS1 
Tibia 031354 nov R1,DTUW 
000137 033366 JMP 5 
:START A SEARCH 
013704 031366 C13: MOV RMADR RS 
10164 1 MOV R1,RMCS2(R4) 
16046 1 MOV TetRe) += (SP) 
3 63 JSR RO. WRT .RM 
34 RMDC 
10 - C18 


SEQ 0143 


7SET_“‘IE’* WITHOUT A ‘'TRE’’ 
ZRESTORE PROC. STATUS 
RESTORE RO = R5 


sDRIVE NUMBER 
3ADDRESS OF DPB 
Glee cll, C13, OR C14 


1=DATA T SFER 
=SEARCH PREGUESTED BY DATA XFER 
4=NOT DATA TRANSFER 


pitt 43 REQUEST FROM ‘DRIVES WAIT’’ QUEUE 
Ne eeete IN ee WAIT QUEUE 


:DPB ADDRESS 
3RMCS1_ADDRESS 

sSELECT DRIVE 

sDESIRED WORD COUNT 
sRMWC ADDRESS 

3LOAD WORD COUNT 

sLOAD BUFFE DRESS 
sLOAD SECT D TRACK 
3CALL THE WRITE ROUTINE 
sREGISTER T 

3"NED’ 

LOAD vie ADDRESS 
CALL THE poy ROUT INE 


sREG! phe OFF 


cK ALL THE READ ROUTINE 
REGISTER OFF SET 


+g *SKIP secre ERROR INHIBIT 
3CALL THE WRITE ROUTINE 

REGISTER OFFSET 
"NED® RET 


SLOAD *‘COMMAND+G0"", °"A178A16"", 
CALL THE WRITE ROUTINE 
aHECISTER OF FFSET 


3SET "DATA TRANSFER UNDERWAY** 


AND *'PSEL** 


3RMCS1_ADDRESS 

3SELECT DRIVE 

DESIR ED cry ateen ADDRESS 
ALL THE by TE ROUTINE 
SREGIST ER _OFF 

*NED’ RETURN 
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RNGAO RMBO FCTNL PT4 MACRO V04.00 15~JAN-82 07:05:59 PAGE 35-3 SEQ 0144 
NGLE/DUAL PORT RH70/ DRIVER (REV 0.17) 
15 750 11 203 900010 MOVB 10(R2) RS sPICKUP SECTOR ADDRESS 
139 136 1 1374 sug MXWNDWR SBACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
161 0 760 000037 ADD #31. 83 
16¢ 7 10346 1$: MOV R3,-(SP) :COMBINE THE ADJUSTED SECTOR WITH 
163 032770 116 900011 000001 MOVB 11(R2),1¢4SP) § :THE DESIRED TRACK 
164 0 ef? 35632 JSR RO,WRT.RM SCALL THE WRITE ROUTINE 
RMDA SREGISTER OFFSET 
0 03341 C18 :"NED’ RETURN 
165 0 01 746 131 MOV #131,-(SP) SSTART A SEARCH 
166 0 301 00403 5632 JSR RO,WRT.RM SCALL THE WRITE ROUTINE 
03301 RMCS1 SREGISTER OFFSET 
03302 1 CI " "NED" RET 
167 033022 156137 031356 031324 BISB ATABIT(R1),SRCHWT SSET “SEARCH WAIT’ KEY 
168 033030 000556 BR C15 
120 yINITIATE A NON-1/0 OPERATION 
12 033032 013704 031366 C14: MOV RMADR ,R4& ;RMCS1 ADDRESS 
17 033056 010164 10 MOV R1 RMCSE (RA) *SELECT DRIVE 
174 033042 11620 002 MOVB  2(R2),R [PICKUP THE REQUESTED COMMAND 
175 0330466 122703 000131 CMPBs«#131,R3 t1S IT A SEARCH COMMAND? 
176 033052 001 BNE : H IF NO 
177 033054 016 46 900010 MOV 10(R2),-(SP) LOAD DESIRED TRACK & SECTOR 
178 033060 004037 035632 JSR RO,WRT.RM [CALL THE WRITE ROUTINE 
033064 RMDA SREGISTER OFFSET 
033066 03341 C18 :"NED* RETURN 
179 033070 000403 BR 2$ 760 LOAD CYLINDER 
180 033072 122703 000105 1$: CMPB so #105,,R3 71S IT A SEEK COMMAND 
181 033076 001007 BNE [BRANCH IF NO 
18 033100 016246 00001 2$: MOV 12(R2),-(SP) LOAD DESIRED CYLINDER 
183 033104 004037 035632 JSR RO, WRT .RM *CALL THE WRITE ROUTINE 
033110 000034 RMDC *REGISTER OFFSET 
033112 055410 C18 "NED" RETURN 
184 033114 00051 BR 14$ 
185 033116 122703 000115 3$: CMPB ss #'115,R3 z1S IT AN OFFSET’ COMMAND? 
186 033122 001013 BNE 4$ : 
187 033124 004037 035552 JSR RO,RD.RM *CALL THE READ ROUTINE 
033130 000032 RMOF *REGISTER OFFSET 
033132 033410 C18 | "NED RET 
188 033134 M6216 000001 MOVB _«-1(R2), (SP) [BYTE WHEN LOADING THE REGISTER 
189 033140 004037 035632 JSR RO, WRT RM *CALL THE WRITE ROUTINE 
033144 32 RMOF SREGISTER OFFSET 
33146 033410 C18 :"NED® RETURN 
190 033150 000501 BR 14$ 
191 033152 122703 000107 4$: CMPB ss #'107,,R3 31S IT A “'RECALIBRATE’’ COMMAND? 
19@ 033156 901006 BNE IF N 
19 033160 3046 CLR =(SP) *CYLINDER ZERO 
194 033162 037 035632 JSR RO,WRT.RM *CALL THE WRITE ROUTINE 
33166 34 RMDC *REGISTER OFFSET 
331 33410 C18 :"NED* RETURN 
195 033172 70 BR 14$ 3 CONTINUE, 
196 033174 12670 000143 5$: CMPBs«o#'143,.R3 [1S IT A ‘SET FORMAT’ COMMAND? 
197 033200 001014 BNE : F NO 
198 0 3302 004037 035552 JSR RO,RD.RM *CALL THE READ ROUTINE 
33.1 32 RMOF *REGISTER OFFSET 
033210 03341 C18 <"NED® RETURN 








SoeUsURUSS 
FOROR 


= 


WDONOULS Ww 
So 

a 

MMM 

xas 


Sox 


PonoRonoNonononen 
ee ad ed ed ad ed ed 
WAAIN AAAI 
WMO oS 
— od od 
Sune 


SESELLS 
Reuse 


WWW 


wn 
ooo 
WAG 
ve] 
* 


MMmronr 
So 


nm 
rx 


MOPQPONGPONOPY 
nm 
wn 
So 
Ww 
Ww 
Ww 
Ww 
—~ 


44 


SOULE 
=e 

SuoWoOWO— 
ONIN —n 


wn 


MACRO V04.00 15-JAN-82 07:05:59 PAGE 35-4 


DRIVER (REV 


036234 
000200 
031330 


035744 


035632 


023420 


1 
000001 
7 


031232 


031322 
031354 


036222 


.17) 
MOVB = 1(R2),1(SP) sCOMBINE "FMT16","ECI","HCI", & “'SSEI 
JSR RO, WRT .RM *CALL THE WRITE ROUTINE 
RMOF 3REGISTER OFFSET 
cl -— t"NED' RETURN 
6$ CAPS #141,.R3 :18 11 A wer REGISTER’’ COMMAND? 
7$ MOV 6(R2) ,R3 POINTS 1 1ST ADDRESS OF WHERE 
TO PUT THE REGIST 
MOVB —- 10(R2),9$ SINIT. THE INDEX oR THE FIRST REG. 
MOVB = 11(R2).R5 SINDEX OF LAST REG. TO MOVE 
8$ JSR RO,RD.RM TREAD RM8O REGIST 
9$ RMCS1 SINDEX OF REG. TO READ 
MOV (SP)+, (R3)+ :GET THE CONTENTS oF ,RH7O/RMBO REG. 
CMP 9$,R5 *LAST REG. BEEN READ 
BEQ les [GET OUT IF YES 
ADD M2.98 i INCREASE THE INDEX BY 2 
10$:  CMPB #145,R3 at IT A SELECT DRIVE’ COMMAND? 
BEQ 12$ SBRANCH IF YES 
11$: MOV R3,-(SP) :LOAD THE COMMAND 
JSR RO,WRT.RM CALL THE WRITE ROUTINE 
RMCS1 REGISTER OFFSET 
CIt "NED’ RET 
2s JSR PC ,POPQUE REMOVE REQ. FROM QUEUE 
BIS #81707, 16(R2) set THE "DON 
st SAVEFG SAVE THE RH7’ 7RB40 REGISTERS? 
JSR PC,SVRH70 oe ee<Go SAVE THE REGISTERS 
13$: RTS PC SRETURN TO USER 
;START A NON=DATA TRANSFER OPERATION 
14$: MOV R3,-(SP) LOAD T HE COMMAND 
JSR RO.WRT.RM *CALL THE WRITE ROUTINE 
RMCS1 REG] TER OF FSET 
C18 "NED* RETURN 
sSTART THE COMMAND TIMER 
C15: ASL 


R1 
a #10000. , TIMER(R1) 3SET A 10 SECOND TIMER 


R 
MOVE #1, DRVACT(R1) :SET THE DRIVE ACTIVE 
RTS PC sRETURN TO THE USER 


sPROCESS A NON-EXISTENT DRIVE 


C18:  SAVREG ;SAVE_RO = RS 
STB. —- DRVACT(R1) DRIVE ACTIVE? 
BEQ 3BRANCH IF NO . 
MOV —sTRNSWT.R2 GET THE "TRANSFER WAIT" QUEUE 
CMe RL DTUW 3D1D THIS DRIVE HAVE AN 1/0 IN PROGRESS? 


H 
GET THE DPB POINTER 


JSR ay ee reas 
R QUEUE ENTRY FOR DRIVE ? 


1$: TST 
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190799 OS1S56 28: 


3$: 


4$: 






2s 
#81T15!B1T0 
#-1, TIMER(R 
DRVACT(R1) 


PC 


2 


:BR IF 
1, 00h) : 


1S tH 
RESET 
= CLEAR 


;SET D 


LE 
sCLEAR TH 


—_- SETUP FOR A TRANSFER 


THE INDICATOR 
THE TRANSFER QUEUE 
E DRIVE'S QUEUE 


RIVE TO 


3 TO OFFLINE 
sCLEAR THE DRIVE TYPE INDICATOR 
;SET_ ““IE’* WITHOUT ‘TRE’ 





TRESTORE RO = R 
“RETURN 


D1 a 
SEQ 0146 
NOT 
SET "DRIVE NON-EXISTENT’ INDICATOR 
STOP THE TIMER 


TSET “DRIVE ACTIVE’ TO IDLE 


4 


CZRNGAO_RM80 rey 
SINGLE/DUAL 
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00 15-JAn-Be 07:05:59 PAGE 36 
R (REV 0.17) 


Z INTERRUPT SERVICE ROUTINE 


18: 


v8 
SAVREG 


#1, ACTDRV :SeT “ACTIVE DRIVER’ FLAG 
RMADR,RS ZADDRESS OF RMCS1 
DTUW,R1 3GET DATA TRANSFER UNDERWAY’’ INDICATOR 
1$ F NO DATA TRANSFER UNDERWAY 
PC,T1D CALL TRANS ER D 
PC,SC :CALL SPECIAL CONDITIONS 
ACTDRV SCLEAR ACTIVE DRIVER" FLAG 
RETURN 


3 TRANSFER DONE ROUTINE 


031354 
031334 


000016 


1$: 
2$: 


3$: 


000016 4$: 


DRVACT(R1) sSET DRIVE ACTIVE INDICATOR TO IDLE 
#~-1,DTUW [NO DATA TRANSFERS UNDERWAY 
#1, TIMER(R1) :CANCEL TIMEOUT 
TRNSWT ,R2 3GET ‘DPB’ ADDRESS FROM THE 
TRNSW S TRANSFER WAIT QUEUE=-CLEAR QUEUE 
#B1T07,16(R2) SET DONE 
R1,RMCS2(R4) SELECT THE DRIVE 
RO.RD.RM [CALL THE READ ROUTINE 
$REGISTER OFFSET 
"NED’ RETURN 
(SP)+ *1$ TRE=1 ? 
3g :BR IF YES 
SAVEFG 3 SAVE THE RH70/RM80 REGISTERS? 


PC ,SVRH70 :YES-~SAVE THE REGISTERS 
PC OPT 7CALL OPTIMIZER 


PC RETURN 
#113, (R4) RELEASE THE DRIVE 
PC RETURN 


RO,RD.RM sCALL THE READ ROUTINE 
REGISTER OFFSET 
#B1T8!B1T7,(SP)+ ;SEE IF HCRC OR HCE ERRORS 
z1F NE, YES 
RO,RD.RM CALL tHe READ ROUTINE 
SREGISTER OFFSET 
:"NED* RETURN 
SSEE IF SKIP SECTOR ERROR 
IF €Q, NO 
:CALL L fHE READ ROUTINE 
3REG ISTER OFFSET 
: "NED" RETURN 
WSSEI,(SP)+ £1$ THE INHIBIT BIT ALREADY SET ? 


SK i) Q 
pening” 16¢R ) :SET DATA ERROR FLAG, 
PC, EMPTY net WAIT" 


ASSE , (SP)+ 
RO,RD.RM 


MPTY THE ‘DRIVE 
PC SVRH7’ OVE THE RH70/RM8 REGISTERS 
6111, the) ‘ISSUE A DRIVE CLEAR 


SEQ 0147 
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mms 
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RNGAO RM8O FCTNL PT4 MACRO V04.00 15~JAN-82 07:05:59 PAGE 36-1 SEQ 0148 
NGLE/DUAL PORT RH70/RM80 DRIVER (RE 
60 034000 012714 000113 MOV #113, (R4) zISSUE A RELEASE TO THE DRIVE 
61 ert 207 RTS PC RETURN 
es :SKIP SECTOR HANDLING ROUTINE 
65 0 006 10137 031354 SKIP: MOV RI. DTUW ZLOAD ACTIVE DRIVE NUMBER 
66 034012 010237 031322 MOV *TRNSWT SRESTORE TRANSFER FLAG 
§ 0 01 5 1 CLR Bee eRS) [CLEAR THE DRIVER STATUS 
0 9 i3 276 000002 B17 #2 .SCOMND(R2) :SeE IF HEADER ORDER 
034032 016200 000004 MOV SWCNT(R2),RO STARTING WORD COUNT 
84 0 O84 016003 000006 MOV SBUF (R2) ,R3 : STARTING BUFFER ADDRESS 
101 03404 $ 
198 034044 1$: 
034044 004037 035552 JSR RO,RD.RM sCALL THE READ ROUTINE 
Giee $0005 on tlt eet 
105 034054 166216 000004 SUB SWCNT(R2), (SP) SAE CUATE THE NUMBER OF WORD TRANSFERED 
106 034060 042716 000377 BIC #377, (SP) SLEAVE ONLY SECTOR MULTIPLES 
107 034064 01160 MOV [COPY THE DIFFERENCE 
108 034066 066216 000004 ADD SWCNT(R2),(SP) NEW OUNT 
109 034072 012 MOV (SP)+,RO SCOPY THE WORD COUNT 
110 034074 006303 ASL R3 [CONVERT WORD DIFFERENCE TO A BYTE DIFFERENCE 
111 034076 066203 000006 ADD SBUF (R2) ,.R3 [NEW BUFFER ADDRESS 
115 034102 010 6 2$: MOV R3,~(SP) [BUFFER ADDRESS 
117 034104 037 035632 JSR RO.WRT.RM “CALL THE WRITE ROUTINE 
034110 RMBA ZREGISTER OFFSET 
034112 033410 C18 ‘*NED" RETURN 
118 034114 01004 MOV RO,-(SP) SWORD COUNT 
119 034116 004037 035632 JSR RO,.WRT.RM *CALL THE WRITE ROUTINE 
034 1¢¢ 900002 RaWC :REGISTER OFFSET 
120 034126 012714 040111 MOV #40111, (R4) ‘CLEAR rd DRIVE 
121 0341 037 035552 JSR RO,RD.RM *CALL THE READ ROUTINE 
034136 0 32 RMOF :REGISTER OFFSET 
122 034142 052716 000 BIS #SSEI, (SP) ‘SET THE INAIBIT BIT 
123 034146 035632 JSR RO,WRT.RM [CALL THE WRITE ROUTINE 
034132 900032 RMOF 3REGISTER OFFSET 
0 154 03341 C18 "NED* RETURN 
124 34156 012762 000001 000020 MOV #1, $SSENB( R2) gp) INDICATE THAT SKIP SECTORING WAS ENABLED 
125 034164 16046 900002 MOV SCOMND(R2), “GET THE ORIGINAL COMMAND 
126 034170 037 0356 JSR RO CUNT RA CALL THE WRITE ROUTINE 
0341746 RMCS1 3REGISTER OFFSET 
034176 03341 C18 "NED* RETURN 
137 034200 000207 RTS PC {RETURN 
131 :SPECIAL CONDITION ROUTINE 
138 034 2 116403 000016 SC: MOVB = RMAS(R4),R3 ZREAD "RMAS'’ 
154 0 1014 BNE 2$ *BRANCH IF ANY ‘ATA’ BITS SET 
155 03421 37 035552 JSR RO,RD.RM *CALL THE READ ROUTINE 
034214 RACS1 ZREGISTER OFFSET 
156 ) 38 fee ROLB = (SP)+ 71S Mee 
157 Bae $9 100408 1$ SYES, NO DRIVES TO CHECK 
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DRIVER (REV 
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AN-82 07:05:59 PAGE 36-2 


1 
™ SEQ 0149 


.17) 
JSR RO,ES.SAV zSAVE THE ADDRESS IN ‘SESCAPE' 
EMT 1 SREPORT AN ILLEGAL INTERRUPT 
- JSR PC .SET.1E 3SET INTERRUPT ENABLE 
23: CLR =(SP) “PROCESS ALL DRIVES THAT HAVE 
MOVB _——R3, (SP) TAN 'ATA''S1 
MOV #1.R3 
CLR R1 
sPROCESS ALL DRIVES WITH "‘ATA’’ SET 
$(3: BIT R3, (SP) zATA=1? 
BNE sc§ YES=-BRANCH 
SC4: INC Ri <MOVE TO THE NEXT DRIVE 
BNE $c3 ;BRANCH IF MORE TO CHECK? 
TST (SP)+ [CLEAN OFF THE STACK 
RTS PC [RETURN TO USER 
sDETERMINE IF THE DRIVE WITH "‘ATA’ SET IS ACTIVE WITH A COMMAND 
$C5:  TSTB DPINT(R1) sINITIALIZING THE DRIVE ? 
BEQ 1$ IF NOT 
JMP C13 {PROCESS THE DRIVE 
1$: TST DPROS(R1) ;PORT REQUEST OUTSTANDING ? 
JMP $C13 {START THE OUTSTANDING COMMAND 
2s: TSTB. ——DRVACT(R1) DRIVE ACT VE ? 
BNE $C6 [BR IF ACTIVE 
sTHE DRIVE WAS NOT ACTIVE, FIND OUT WHY IT INTERRUPTED 
JSR PC,SC12 ZSAVE RMDS, RMER1 AND RMER2 
ZALSO DO _A’DRIVE INIT (DRVINT) 
TST8 = DPINT(R1) [TRYING TO INIT THE DRI 
BNE SC4 [BR IF YES, CHECK ON MORE BRIVES 
BIT #B1T13,RMERRS+6 : ADDRESS pt CHANGED ? 
3S: MOV (SP) RS ZPICKUP (RMAS) BEFORE THE ERROR CALL 
JSR RO,ES. SAV *SAVE THE ADDRESS IN CAPE* 
EMT SREPORT THE UNEXPECTED ATTENTION 
sa BR $C4 [60 CHECK FOR MORE ATA'S 
; JSR RO,ES.SAV ;SAVE THE ADDRESS IN *SESCAPE* 
EMT *REPORT THE ADDRESS PLUG CHANGE 
BR C4 *CHECK FOR MORE DRIVES 
;THE DRIVE COMPLETED A NON-1/0 COMMAND 
SC6: ASL R1 :SETUP TO ADDRESS WORDS 
MOV #-1, TIMER(R1) ;STOP THE TIMER 
ASR SRESTORE THE DRIVE ADDRESS 
JSR PC,GETREQ *GET THE DPB POINTER FROM THE QUEUE 
MOV RI.RMCSO(R4) :SELECT DRIV 
JSR RO.RD. *CALL THE READ ROUTINE 
RMDS SREGISTER OFFSET 
$c8 t"NED® RET 
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RH70/RM80 REG'S 
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SOME THING 
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TNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 36-3 
T kA DO/RNBO DRIVER (REV 17) 
11605 MOV (SP) RS yAND PUT IT IN RS 
1 ROL (SP)+ [WAS THERE AN ERROR? 
1 BPL §C11 [BR IF NO ERROR 
035552 JSR RO,RD.RM SCALL THE READ ROUTINE 
14 R1 *REGISTER OFFSET 
0 4 Sc :"NED' RETURN 
1260 MOV (SP)+,R5 SAND SAVE IT INR 
004 35744 JSR PC, SVRH70 *SAVE RH of RmbO REGISTERS 
012746 11 MOV #111,-(SP) TISSUE A DRIVE CL 
037 035632 JSR RO,WRT RM [CALL THE WRITE ROUTINE 
RMCS1 SREGISTER OFFSET 
34 40 SC 3"NED* RETURN 
10 ROL RS [WAS ‘UNSAFE’ CONDITION =1? 
100404 BMI 1$ “BRANCH IF YES 
0 76 100240 000016 BIS #81T15!81T07!B1T05,16(R2) ; INFORM USER OF ERROR 
0397 100220 000016 1S: BIS #81T15!B1T07!B1T04,16(R2) 
105061 031 2 2$: CLRB  DRVACT(R1) :SET DRIVE TO IDLE 
004737 036166 JSR PC,EMPTYQ : 
146137 031356 031324 BICB  ATABIT(R1),SRCHWT ;CLEAR THE SEARCH WAIT FLAG 
012746 000113 V #113,-(SP) : COMMAND 
004037 035632 JSR RO, WRT .RM [CALL THE WRITE ROUTINE 
000000 RMCS1 *REGISTER OFFSET 
054540 Sc8 :"NED® R 
000137 034256 JMP SC4 [CHECK FOR MORE DRIVES 
ZISR "NED'' PROCESSOR 
004737 036166 SC8: JSR PC, EMPTYQ :CLEAR THE DRIVE'S QUEUE 
004737 033410 JSR PC.CI8 [PROCESS THE ‘NED* 
000137 034256 JMP scé SCHECK MORE DRIVES 
yNON-1/0 COMMAND TERMINATION ROUTINE 
195061 031232 SC11:  CLRB  DRVACT(R1) >SET DRIVE IDLE 
136137 031356 031324 BITB ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 
SAN 1/0 COMMAND? 
901012 BNE 1$ :BRANCH IF YES 
004737 036234 JSR PC ,POPQUE SREMOVE REQUEST FROM QUEUE 
0527 3 900200 000016 BIS #B8iT07,16(R2) :SET 'DONE’’ BIT 
0057 31 TST SAVEFG SSAVE THE REGISTERS? 
100008 BPL :BRANCH IF 
004 35744 JSR PC, SVRH70 “YES=-SAVE ALL OF THE 
1161 31356 000016 1$: MOVB  ATABIT(R1),RMAS(R4) ;CLEAR ATTENTION 
004737 03231 JSR PC OPT sSTART A 
000137 034256 JMP scé [CHECK FOR MORE DRIVES 
ZERROR PROCESSOR 
101 010 $C12: MOV R1,RMCS2(R4) — : SELECT DRIVE 
16437 12 031224 MOV RMDS(R4) ,RMERRS i SAVE THE FOUR REGISTERS THAT 
16437 14 031 6 MOV RMER1(R4$ ,RMERRS* sWILL TELL US 
16437 900042 031 MOV RMER2(R4) .RMERRS*+4 
037 03161 JSR RO, DRVINT sINIT. THE STATE OF THE DRIVE 
01 BR STAKE ERROR EXIT 
207 RTS PC RE 
5726 1$: TST (SP)+ *POP PC OFF OF THE STACK 


SEQ 0150 
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CZRNGAO P™BO FCTNL PT4 MACRO V04.00 15-Jan-82 07:05:59 PAGE 36-4 SEQ 0151 
SINGLE/DUAL PORT RH70/ DRIVER (REV 0.17) 
60 034672 000722 BR sc8 sPROCESS THE PARITY ERROR 
;DUAL PORT REQUEST PROCESSOR 
674 301 $C13: ASL R1 zSETUP TO ADDRESS WORDS 
5 7% 01 $i 177777 031334 Ov #1, TIMER{R1) ;STOP THE TIMER 
9 ard 10 MOV RI-RMCS2(RG) SELECT THE DRIVE 
7i2 116164 031356 000016 MOVB ATARIT (RI) RMAS (RA) CLEAR THE ATTENTION BIT 
9 034720 032714 000 BIT (ROS DRIV vE A E ? 
70 034724 001 BNE te BR I AILABLE 
9 1 761 035230 031334 mov #15000. ,TIRERCRI) zSTART 15 SECOND TIMER AGAIN 
274 03474 b08e33 BR 3$ sEXIT 
75 034742 105761 031262 1$: TST8 = DPINT(R1) ZINITIALIZING THE DRIVE ? 
76 034746 001424 BEQ 2$ F NOT 
307 03475 105061 031262 CLRB = DPINT(R1) ICLEAR THE INIT INDICATOR 
78 034754 004037 031610 JSR RO, DRVINT 60 INIT T HE DRIVE 
379 0 760 900260 NOP [DUMMY PARITY ERROR RETURN 
BO 034762 105761 031242 TSTB = DRVSTA(R1) DRIVE ONLINE 9 
281 034766 003014 BGT 2$ [BR IF YES == START ORDER 
282 0 005702 TST R2 # QUEUE ENTRY FOR THE OORIVE 
283 034772 001416 BEQ 33 
284 034774 004737 036222 JSR Ger DPB PB ADDRESS 
85 935000 0527 2 140000 000016 BIS mainisieiris, 16¢R s INFORM USER THAT DRIVE OFFLINE 
035 7 035744 JSR P SAVE THE REGISTERS 
287 035012 004737 036166 JSR PC. EMPTYQ aMPTY THE REQUEST QUEUE 
288 035016 04 BR 3 
89 0350 0 $86 1 031272 2s: CLRB = DPROS(R1) :CLEAR THE PORT REQUEST INDICATOR 
035024 004737 03231 JSR PC, OPT [START THE PENDING REQUEST 
1 035030 000137 034256 3$: JMP scé [PROCESS OTHER DRIVES 
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RNGAO RM8O FCTNL PT4 MACRO V04.00 15-Jan-82 07:05:59 PAGE 37 SEQ 0152 
PORT RH70/ DRIVER (REV 0.17) : 
1 :RMBO TIMER ROUTINE 
¢ : MOV ATIME ,=(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
$ : JSR PC,RMTMR SCALL RM8O TIME ROUTINE 
é 035034 005737 031326 RMTMR: TST ACTDRV sCHECK “‘ACTDRV & ACTSTR" 
03504 901030 BNE 4$ 31F NON ZERO EXIT 
8 035042 112737 000001 031327 MOVB #1,ACTSTR :SET 'ACTSTR 
035050 104412 SAVREG [SAVE RO = RS 
10 03505 905001 CLR R1 [START WITH DRIVE 0 
11 035054 3003 CLR R3 
ig 3056 005763 031334 1$: TST TIMER(R3) z1S THE TIMER RUNNING? 
1 002407 BLT : H IF NO 
14 035 1 3 000002 031334 SUB (SP) ,TIMER(RS) “COUNT THE INTERVAL 
15 035072 00 BGT $ :BR IF NO SOFTWARE TIMEOUT 
16 035074 004737 035126 JSR PC,STO [CALL SOFTWARE TIMEOUT ROUTINE 
17 00 000405 BR 3$ 760 TO THE EXIT 
18 02 3201 23: INC R1 [MOVE TO NEXT DRIVE 
19 04 005723 TST (R3)+ 
20 06 022701 000010 CMP #8. ,R1 sOUT OF DRIVES? 
21 j 361 BGT 1$ ‘BRANCH IF NO 
22 14 104413 3$: RESREG SRESTORE RO = RS 
16 105037 031327 CLRB_ - ACTSTR [ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
22 012616 4$: MOV (SP)+, (SP) sADJUST THE STACK 
33 24 000207 RTS PC RETURN 
4 :SOFTWARE TIMEOUT ROUTINE 
29 “NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
30 ; OR GREATER 
32 CALL: 
33 : #DRVNUM,R1 :DRIVE NUMBER 
34 3 PC,STO 3CALL 
35 $ 
035126 01 STO: R1,-(SP) sSAVE R1 
035130 01 R3,-(SP) SSAVE R3 
035132 013704 031366 RMADR,R *GET ADDRESS OF ‘‘RMCS1"' 
035136 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
035142 004037 035552 JSR RO.RD.RM *CALL THE READ ROUTINE 
035146 le RMDS SREGISTER OFFSET 
035150 03544 ST05 ["NED' R 
42 03515¢ 1 3726 TSTB  —s« ( SP) + SIS “DRY''=1? 
43 035154 1 BMI STO2 ‘BR IF YES 
44 035156 105761 031262 $101: TSTB  DPINT(R1) *TRYING TO INTIALIZE THE DRIVE ? 
45 035162 001070 BNE S “BR IF Y 
46 035164 105761 031272 iste DPROS(R1) i OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
48 03517, O13703 031322 MOV TRNSWT ,R2 *PICKUP TRANSFER WAIT QUEUE 
49 03517 201 031354 CAP R1,DTUW : TRANSFER, UNDERWAY ON THIS DRIVE? 
51 035204 094739 036 JSR PC GETREQ iSET DPB ADDRESS 
3 035210 0 2762 101 000016 1$: BIS #B1T15'BIT09,16(R2) ;SET_THE ERROR FLAGS 
53 035216 004737 035744 JSR —- PC, SVRH ;SAVE RH70/RM8O REGISTERS 
54 035 3 012764 9 000010 MOV #BITOS.RMCS2(R4) ;"INIT'’ THE MASS BUS 
55 035 105061 03123 CLRB = DRVACT(R1) :bRIVE IS IDLE 
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reine V04.00_ 15-JAN-82 07:05:59 PAGE 37-1 SEQ 0153 | 
DRIVER (REV 0.17) 


CLR RI sSTART WITH DRIVE 0 
; 031610 2$: JSR RO, DRVINT INIT. THIS DRIVE 
BR ARITY ERROR RETURN 
031232 TST8 sd DRVACT(R1) ‘DRIVE IDLE BEFORE THE INIT.? 
4 BEQ  YES=-BRAN 
2 031322 MOV TRNSWT RZ SGET TRANSFER WAIT QUEUE 
1 031354 CAP TUW,Ri 3WAS -“ehawch on THIS DRIVE? 
¢ 036222 JSR iGet — DPB POINTER FROM QUEUE 
2 100400 000016 3S: BIS wsiti3 161708, 16¢R ) sTNEORM us 
1 03125 CLRB  DRVACT(R1) sSET DRIVE ACTIVE TO IDLE 
3 177 031334 4$: MOV #~1, TIMER(R3) Sele THE TIMER 
723 TST (R35+ [UPDATE THE INDEX 
01 INC R1 S INCREMENT THE DRIVE NUMBER 
0 000010 CMP #8.,R1 [LAST DRIVE BEEN CHECKED? 
003346 BGT $ =NO==1.00P 
012737 177777 031354 MOV #~1,DTUW [NO DATA TRANSFERS UNDERWAY 
005037 031322 CLR TRNSWT [CLEAR TRANSFER WAIT QUEUE 
00473 0361 JSR pC .CLRQUE 3CLEAR ALL REQUEST QUEUES 
116405 000016 STO2: MOVB RMAS(R4),RS5 “READ ATTENTION REG 
136105 031356 BITB  ATABIT(RI) RS 31S ATTENTION FOR THIS DRIVE UP ? 
001017 BNE : YES--BRANCH 
105761 031262 TSTB ——DPINT(R1) 3 TRYING TO INTIALIZE THE DRIVE ? 
001031 BNE T : YES = DRIVE NOT ONLI 
105761 031272 TSTB  DPRQS(R1) sourst TANDING PORT REQUEST FOR THE DRIVE ? 
001045 BNE ST07 ‘BR IF YES = NO RESPONSE TO REQUEST 
020137 031354 CMP R1,DTUW ;DATA TRANSFER UNDERWAY FOR THIS DRIVE 
001267 BNE STO F NO 
004037 035552 JSR RO,RD.RM SCALL THE READ ROUTINE 
000000 RMCS1 REGISTER OFFSET 
035440 STOS "NED" RETURN 
105726 TSTB ss (SP) + ne 
100261 BPL STO1 :BR I =0 
105761 031262 $103: TSTB  DPINT(R1) * INITIALIZING THE DRIVE ? 
001003 BNE <BR IF INIT P 
105761 031272 STB DPRQS(R1) *PORT REQUEST PENDING ? 
300768 177777 031334 1$: MOV #-1,TIMER(R3) STOP THE TIMER 
000442 BR ST09 EXIT 
004737 033410 STOS: JSR PC,C18 [GO HANDLE THE ‘NED* 
100be 1 03 126 $706: CLRB  DPINT(R1) CLEAR THE INITIALIZE INDICATOR 
105061 CLRB = DRVSTA(R1) :SET UNIT OFFLINE 
g1276s 177 121008 031334 MOV #-1, TIMER(R3) : STOP THE orMER 
004737 JSR PC, GETREQ ET THE DPB ADDRESS 
005702 TST R2 SREQUEST IN QUEUE ? 
001424 BEQ STO9 BR IF 
050762 140000 000016 Bis WBIT15!B1714,16¢R2) i INFORM THE USER DRIVE NOT AVAILABLE 
bie763 177777 031334 STO7: MOV #-1, TIMER(R3) STOP TH E TIMER 
10 061 031272 CLRB = DPRQS(R1) *CLEAR PORT REQUEST INDICATOR 
004737 036222 JSR pC .GETREQ SGET DPB ADDRESS 
005702 TST R *QUEUE ENTRY FOR DRIVE ? 
00140 BEQ STO9 “BR IF NONE 
012762 100004 000016 MOV #B1T15!B1T2,16(R2) ;INFORM USER OF PORT REQUEST ERROR 


cc 
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7 036166 $TO8: JSR PC,EMPTYQ 
036366 ioe SR PC SVRHZO 
"MO 


Vv 
RTS 


(SP)+, 
(SP)+.R1 
PC 


; CLEAR 


THE QUEUE FOR THE DRIVE 
TERS 


SAVE THE REGIS 
“RESTORE R3 


RESTORE R1 
* RETURN 


SEQ 0154 
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0.17) 
:ROUTINE TO READ A RH70/RM80 REGISTER 
CALL 
; JSR RO,RD.RM 360 READ A REGISTER 
: INDEX *REG. INDEX FROM BASE 
: TERROR ADDRESS--PROCESS ERROR STARTING 
: tAT THIS ADDR 
; RETURN SCONTENTS OF REG. IS ON THE STACK 
RD.RM: MOV (SP) ,=(SP) : SAVE RO FOR RETURN 
MOV RMADR,RD.ADR  :FORM THE DESIRED ADDRESS 
ADD (RO)+.RD.ADR | :USING THE BASE AND THE INDEX 
RD.RM1: MOV a(PC)+,(PC)+ | :READ THE DESIRED REGISTER OF THE RM8C 
RD.ADR: .WORD 0 SADDRESS IS FORMED HERE 
. “WORD 0 “REG. CONTENTS PUT HERE 
MOV RD.WRD,2(SP) § ;RETURN IT TO T 
MOV :PUT THE ADDRESS ON THE STACK 
ADD #RMCS2, (SP) ZFORM THE ADDRESS OF RMCS2 
BIT #BITI2. stsp+ *CHECK THE "NED’ BIT 
BNE RD.RM3 TIF NE, DRIVE NOT PRESENT 
TST (RO) + ZERROR FREE RETURN 
BR RD.RM4 
RD.RM3: MOV (RO) ,RO SERROR EXIT 
V (SP)+, (SP) 
RD.RM4: RTS RO 


ROUTINE TO WRITE A REGISTER 


F MOV DATA, =(SP) :DATA TO BE LOADED ON THE STACK 
: JSR RO,WRT.RM SCALL THE ROUTINE TO LOAD (WRITE) THE REG. 
; INDEX S INDEX OF THE REGISTER TO BE LOADED 
: "NED' RETURN SADDRESS TO RETURN TO IF "NED® ERROR 
; RETURN TERROR FREE RETURN 
WRT.RM: MOV 2(SP),WRT.WD  ;SAVE THE WORD TO WRITE 
MOV (SP) +, (SP) ;ADJUST THE STACK 
MOV (RO) +. WRT.AD GET INDEX OF REGISTER TO BE WRITTEN 
BNE “BRANCH IF NOT 1 
CMPB ss #150, WRT. WD 31S THE COMMAND FOR DATA TRANSFERS? 
BLT 1$ :YES=--DON'T GET THE OLD Al6 & Al7, © PSEL 
JSR RO,RD.RM [CALL THE READ ROUTINE 
RMCS1 REGISTER OFFSET 
WRT.R3 "NED* R 
THE COMMAND BEFORE SENDING TO THE 
°THE RH70/RMB 
SWAB —s- (SP?) 
BIC #°C7, (SP) 
MOVB = (SP)+,WRT.WD+1 
1$: ADD RMADR,WRT-AD FORM THE ADDRESS OF THE DISK REG. 
WRT.R1: MOV (PC)+,a(PC)+ LOAD THE DESIR ED REG. 
WRT.WD: .WORD | <HORD TO WRITE GOES HERE 
WRT.AD: . WORD *ADDRESS IS FORMED HERE 
MOV RMADR, = (SP) :PUT THE ADDRESS ON THE STACK 
ADD #RMCSe, (SP) ZFORM THE ADDRESS OF RMCS2 
BIT WBIT12.a(SP)+ CHECK THE "NED’ BIT 


BEQ WRT .R4 IF EQ, DRIVE IS PRESENT 
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031 
00001 
000014 


036024 
036024 


000200 


035552 


036024 
000002 
033410 


031366 
000010 


040000 


000106 
010000 


000001 
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REV 0.17) 


WRT.R3: MOV (R 


WRT.R4: TST (R 
WRT.RS: RTS RO 


sROUTINE TO SAVE THE RH70/RM80 REGISTERS 


R0 sTAKE THE "NED’ EXIT 
SADJUST FOR ERROR FREE EXIT 


5 
oxo 


CALL 
: #DPBADR,R2 ;DPB POINTER TO R2 
: JSR PC,SVRH70 SSAVE THE DRIVES REG'S 
SVRH70: SAVREG ZSAVE RO = RS 
TST R2 [QUEUE ENTRY FOR THE DRIVE ? 
BEQ 6$ :BR IF NONE 
MOV RMADR ,,R4 
MOVB  (R2),RMCS2(R4) ;SELECT DRIVE 
MOV 14(R2) ,R3 [GET THE ERROR TABLE POINTER 
BEQ 6$ [EXIT IF NO ADDRESS 
CLR 3$ *COUNTER & POINTER 
1$: CoP 3$#RMDB REACHED THE BUFFER REGISTER ? 
BIT WBITO7,RMCS2(R4) ;*OR® SET ? 
BNE :BR IF SET 
CLR (R3)+¢ i STORE RMDB AS ZEROES 
2$: JSR RO,RD.RM TREAD THE SELECTED REGISTER 
3$: “WORD 0 SREGISTER INDEX 
i TERROR RETURN ADDRESS 
MOV (SP)+, (R3)+ “STORE THE REGISTER CONTENTS 
4$: CMP 3$,MRMEC2 REACHED THE END ? 
ADD #2,3$ S INCREMENT THE REGISTER INDEX 
BR [CONTINUE READING THE REGISTERS 
5$: JSR PC,C18 [PROCESS THE ‘NED' 
6$: RESREG SRESTORE RO = RS 
RTS PC RETURN 
: ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A ‘‘TRE’’ 
3 MOV #DRVNUM,R1 ;DRIVE NUMBER TO R1 
: JSR PC,SET.1E ‘SET "IE" 
; RETURN 
SET.JE: MOV R4,-(SP) ZSAVE R4 
MOV R_R SPICKUP ADDRESS OF RMCS1 
MOV R1,RMCS2(R4) SELECT DRIVE 
MOV = (R4) , = (SP) READ RMCS1 
BIS #BITI4, (SP) [SET THE TRE’ BIT OF THE WORD READ 
SWAB ZADJUST FOR DATO 
MOVB #B1TO6, (RA) 3SET ‘1e"* 
BIT 1T12,RMCS2(R4) 31S "NED''=1? 
BNE :YES=-CLEAR “TRE 
st (SP)+ *CLEAN OFF THE STACK 
1$: mMOVB -—« (SP) +, 1(R4) :CLEAR “TRE 
2s: MOV (SP)+,R4 SRESTORE RG. 


RTS PC sRETURN TO CALLE 
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00 15~JAN=82 07:05:59 PAGE 38-2 SEQ 0157 
(REV 0.17) 
;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 
: JSR PC, CLRQUE 
CLRQUE: SAVREG ZSAVE RO = RS 
MOV #ODRV,R2 TQUEUE BASE ADDRESS 
CLR (R2)+ [CLEAR ENTRY 
CLR (R2)+ [CLEAR ENTRY 
CLR (R2)+ :CLEAR ENTRY 
CLR (R2)+ [CLEAR ENTRY 
CLR (R2)+ [CLEAR ENTRY 
CLR (R2)+ [CLEAR ENTRY 
CLR (R2)+ >CLEAR ENTRY 
CLR (R2)+ [CLEAR ENTRY 
RESREG SRESTORE RO = RS 
RTS PC 
sEMPTY THE QUEUE SPECIFIED BY R1 
CALL 
; MOV DRVNUM,R1 ;DRIVE NUMBER TO R1 
: JSR PC, EMPTYQ 
EMPTYQ: ASL R1 
CLR QDRV(R1) :CLEAR DRIVE QUEUE 
ASR R1 SRESTORE R1 
RTS PC 
sROUTINE TO PUT A REQUEST IN QUEUE 
CALL 
; MOV #DRVNUM,R1 :DRIVE NUMBER 
; MOV #DPB,R SADDRESS OF PARAMETER BLOCK 
: JSR RO, DRVQUE *GO PUT REQUEST IN QUEUE 
; RETURN? SRETURN HERE IF QUEUE IS FULL 
: RETURN2 SRETURN HERE IF REQUCST IS IN QUEUE 
DRVQUE: ASL R1 
TST QDRV(R1) sTEST THE QUEUE ENTRY 
BNE TIF NE, QUEUE ENTRY ALREADY THERE 
MOV R2,QDRV(R1) SADD THE QUEUE ENTRY 
* ISI (RO)+ STAKE RETURN 2 
23: RTS RO ;RETURN TO USER 
sROUTINE TO GET THE ‘DPB’ ADDRESS OF NEXT REQUEST IN QUEUE 
CALL 
: MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 
: JSR PC,GETREQ 760 GET THE REQUEST 
; RETURN iRe= DPB" ADDRESS OF THE REQUEST 
: *R2=0 IF NO REQUEST IN QUEUE 


GETREQ: ASL R1 : 
MOV QDRV(R1) ,R2 3GET THE REQUEST 
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036266 
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suite 07:05:59 PAGE 38-3 SEQ 0158 
ASR R1 ; 
RTS PC RETURN 
ROUTINE TO “'POP’’ THE REQUEST FROM QUEUE 
CALL 
; MOV DRVNUM,R1 :DRIVE NUMBER TO R 
: JSR eee POPQUE ZCALL TO REMOVE REQUEST 
: RETURN *R2=ADDRESS OF DPB REMOVED 
POPQUE: ASL R1 
MOV QDRV(R1) ,R2 :GET THE QUEUE ENTRY 
CLR QDRV(RI) *CLEAR THE QUEUE 
RTS PC ;RETURN TO USER 


gROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE* WHEN THE DRIVER 
3REPORTS AN ERROR DIRECTLY. 


SCALL 
: JSR RO,ES.SAV 
; ERROR N ;THE ERROR CALL 
: RETURN THE RETURN IS PAST THE ERROR CALL 
ES.SAV: MOV (RO)+,1$ 3GET THE ERROR CALL 
MOV SESCAPE,-(SP) SAVE = ADDRESS ae *SESCAPE' 
CLR SESCAPE 3CLEAR THE ESCAPE RETURN 
1$ - WORD THE ERROR CALL IS MOVED HERE 
MOV (SP)+,$ESCAPE RESTORE THE ESCAPE ADDRESS 
RTS RO RETURN 
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-SBTTL GETADR = GET BUS ADDRESS AND VECTOR ADDRESS 


zTHIS ROUTINE IS USED TO ENSURE THE BUS ADDRESS OF THE RH/RM 
READ THE PROPER VALUE. IT WILL ALSO READ THE 


; INPUT FROM TTY REQUESTED? 
:NO--BRANCH 

ee THE REQUEST FLAG 
sFIRST TIME THRU ? 

sBR IF YES 

sCRoLF 

sFIRST ADDRESS 
:"RMCS1="" 

;PRESENT RMCS1 ADDRESS 
:GET NEW RMCS1 


;PERIOD 
;DOUBLE PERIOD 
3 SAVE NEW RMCS1 
7" RMVEC= 
PRESENT RH/RM VECTOR ADDRESS 
:GET NEW RMVEC 


PERIOD 
;DOUBLE PERIOD 
SAVE NEW RMVEC 

3$ INPU 

SAVE THE ERROR VECTOR 
SETUP FOR TRAP 


K FOR RH/RM 
sRESTORE ERROR VECTOR 
sFIRST ADDRESS OF NEW PARAMETERS 
sFIRST ADDRESS OF WHERE TO PUT THEM 
3BUS_ADDRE 
sVECTOR ADDRESS 


*RESTORE ERROR VECTOR 
*CLEAN OFF THE STACK 


31S THERE A MONITOR? 

3NO--GO ASK FOR ADDRESS 
sDESELECT ALL DRIVES FROM TEST 
sRETURN TO SEOP 


1=/ 


04.00 15-JAN-82 07:05:59 PAGE 39 
ECTOR ADDRESS 
t1$ SETUP TO 
SADDRESS FROM THE TTY IF REQUIRED. 
:NOTE: THIS ROUTINE DESTROYS RO-R4 
; SR PC,GETADR 
; RETURN 
GETADR: TST BUSADR 
BEQ § 
CLR BUSADR 
TYPE  ,$CRLF 
INC si 
BEQ 1 
TYPE  ,$CRLF 
1$: MOV #RH.ADR,RO 
MOV csi, 
MOV (RO) .R 
JSR RO,GET 
BR 2$ 
BR 1$ 
BR 4$ 
2$: MOV R4, (RO) + 
MOV VEC, 
MOV (RO) ,R4 
JSR RO,GET 
BR 3$ 
BR 1$ 
BR 4$ 
3$: MOV R4, (RO)+ 
4$: MOV R4. (RO) 
$: MOV _—ERAVEC,R1 
000004 MOV #6$ ,ERRVEC 
TST @RH.ADR 
MOV R1,ERRVEC 
MOV #RH.ADR, 
MOV e 
MOV (RO)+, (R1)+ 
MOV (RO) +, (R1)+ 
RTS PC 
6$: MOV R1,ERRVEC 
CMP (SP) +, (SP)+ 
EMT 
TST an42 
BEQ 1 
CLR DRVSEL 
JMP SEOP 
115 MRMCS1: .ASCIZ <CRLF>/RMCS 
115 MRMVEC: .ASCIZ <CRLF>/RMVE 


C=/ 


SEQ 0159 





oO 
~ 


58 
ro 
nn" 
o 
_" 


SESE. 
Ss 


coooooo 


oo oOo °& 


24 


POMIPONOPOND 2 2 2 
w UNS SeNOME WN OONNOULWIN— 


1 779% 


-SBTTL 
DPB.A: 


DPB.B: 


DPB.C: 


E 13 


PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 40 SEQ 0160 
TA PARAMETER BLOCKS) 


DPB (DATA PARAMETER BLOCKS) 


BYTE 0 3(0) DRIVE NUMBER 
BYTE 0 (1) OFFSET VALUE OR FMT16, ECI, HCI, & SSEI 
“BYTE 3 (2) COMMAND 
“BYTE 0 :(3) PSEL AND A17_AND A16 
; WORD (4) WORD COUNT (MUST BE NEG.) 
“WORD BUFFER :(6) BUFFER ADDRES 
{REGISTER TABLE POINTER 
BYTE 0 :(10)_ SECTOR ADDRESS OR 
FIRST REG. INDEX 
BYTE 0 (11) TRACK ADDRESS OR 
:LAST EX 
WORD 0 ;(12) CYLINDER ADDRESS 
WORD RM.REG 3(14) ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
SLOCATIONS OF WHERE THE DRIVER 
31S TO STORE THE RH/ 
SREGISTERS ON AN ERROR. IF LEFT 
ZZERO REGISTERS ARE NOT SAVED. 
WORD 0 :(16)_STATUS/ERROR INDICATOR 
:BIT15=1=>ERROR OCCURRED 
:B1T07=1=>DONE 
:B1114-B1109 AND 61106-81703 
INDICATE TYPE OF 
WORD 0 ZSKIP SECTOR ENABLE INDICATOR (ENABLED =1) 
BYTE 0 (0) DRIVE NUMBER 
“BYTE 0 (1) OFFSET VALUE OR FMT16, ECI, HCI, & SSEI 
“BYTE 0 3 (2) COMMAND 
“BYTE 0 :(3) PSEL AND A17_AND A16 
“WORD =2 (4) WORD COUNT (MUST we NEG.) 
“WORD BUFFER :(6) BUFFER ADDRES 
REGISTER TABLE POINTER 
BYTE 0 :(10)_ SECTOR ADDRESS 
SFIRST REG. INDEX 
BYTE 0 (11) TRACK ADDRESS OR 
:LAST REG. INDEX 
WORD 0 (12) CYLINDER ADDRESS 
;WORD RM.REG :(14)_ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
SLOCATIONS OF WHERE THE DRIVER 
31S TO STORE THE RH/RM 
ZREGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 
WORD 0 3 (16) STATUS/ERROR INDICAT 
:BIT1S=1=>ERROR OCC 
:B1107=1=>D0NE 
2B1T14-B1T09 AND 81706-81703 
INDICATE TYPE OF ERROR 
WORD 0 ZSKIP SECTOR ENABLE INDICATOR (ENABLED =1) 
BYTE 0 ;(0) DRIVE NUMBER 
“BYTE (1) OFFSET VALUE OR FMT16, ECI, HCI, & SSEI 
“BYTE 0 3 (2) COMMAND 
“BYTE 0 3(3) PSEL AND A17_AND A16 
“WORD =2 :(4) WORD COUNT (MUST BE NEG.) 


F 13 
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DPB (DATA PARAMETER BLOCKS) 
58 036560 043540 .WORD BUFFER (6) BUFFER ADDRESS OR 
9 {REGISTER TABLE POINTER 
60 036562 000 BYTE 0 (10) SECTOR ADDRESS OR 
1 FIRST REG. INDEX 
036563 000 BYTE 0 7(11) TRACK ADDRESS OR 
6 :LAST REG. INDEX 
64 036564 000000 .WORD 0 :(12) CYLINDER ADDRESS 
65 036566 036640 “WORD RM.REG (14) ERROR TABLE POINTER 
és POINTS TO THE FIRST OF TWENTY 
67 LOCATIONS OF WHERE THE DRIVER 
68 31S TO STORE THE RH/RM 
69 REGISTERS ON AN ERROR. IF LEFT 
70 ZERO REGISTERS ARE NOT SAVED. 
71 036570 000000 .WORD 0 :(16)_STATUS/ERROR INDICATOR 
72 [BIT15=1=>ERROR OCCURRED 
73 B1T07=1=>DONE 
74 :B1114-B1T09 AND B1T06-B1TO3 
75 SINDICATE TYPE OF 
76 036572 000000 -WORD 0 [SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 
78 036574 000 DTADPB: .BYTE 0 3(0) DRIVE NUMBER 
79 036575 000 “BYTE 0 :(1) OFFSET VALUE OR FMT16, ECI, HCI, & SSEI 
80 036576 000 “BYTE 0 3 (2) COMMAND 
81 036577 “BYTE 0 (3) PSEL AND A17_AND A16 
“WORD 0 (4) WORD COUNT (MUST BE NEG.) 
83 036602 043540 “WORD BUFFER (6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 
85 036604 000 BYTE 0 (10) SECTOR ADDRESS OR 
3 FIRST REG. INDEX 
87 036605 000 BYTE 0 (11) TRACK ADDRESS OR 
[LAST REG. INDEX 
89 .WORD 0 [(12) CYLINDER ADDRESS 
90 036610 036640 “WORD RM.REG (14) ERROR TABLE POINTER 
91 POINTS TO THE FISST OF TWENTY 
92 SLOCATIONS OF WHERE THE DRIVER 
93 1S TO STORE THE RH 
% REGISTERS ON OR. IF LEFT 
95 ZERO REGISTERS ARE NOT SAVED. 
9% 036612 000000 .WORD 0 (16) _STATUS/ERROR INDICAT 
97 B1T15=1=>ERROR D 
98 3B1T07=1=>D 
99 2B1114-81T09 AND B1T06-B1T03 
100 INDICATE T 
101 036614 000000 -WORD 0 ; SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 
193 03661 000 DPB.R: .BYTE 0 3(0) DRIVE NUMBER 
104 03661 000 “BYTE (1) OFFSET VALUE OR FMT16, ECI. HCI, & SSEI 
105 0 107 “BYTE RECAL 3 (2) COMMAND 
106 036621 000 “BYTE (3) PSEL AND A17_AND A16 
107 O366¢2 900000 “WORD (4) WORD COUNT (MUST BE NEG.) 
108 036624 043540 “WORD BUFFER (6) BUFFER ADDRESS 
109 {REGISTER TABLE POINTER 
110 036626 000 BYTE 0 (10) SECTOR ADDRESS OR 
111 FIRST REG. INDEX 
11 036627 000 BYTE 0 7(11) TRACK ADDRESS OR 
11 ELAST REG. INDEX 
114 036630 000000 .WORD 0 7(12) CYLINDER ADDRESS 
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SEQ 0162 


;(14) ERROR TABLE POINTER 
sPOINTS TO THE FIRST OF TWENTY 
CATIONS OF WHERE THE DRIVER 
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7SAVE RH/RM REGISTERS HERE ON ERROR 
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zRMCS1 (776700) CONTROL & STATUS #1 
ZRMWC (776702) WORD COUNT 
3 776704) BUS ADDRESS 
3RMDA_(77 7067 DESIRED SECTOR/ TRACK 
; D DISK STATUS STATUS #2 


OOK AHEAD 
RMDB 67 ; BATA TA BUFFER 
(776724) MAINTAINABILITY 
RMDT Crrere ) DRIVE TYPE 
RMSN (776730) SERIAL NUMBER 
(776732) OFFSET 
C (776734) DESIRED CYLINDER 
¢ ) CURRENT CYLINDER 
) ERROR REG # 


7 
7 
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RNGAO_RM80 
MESSAGE 
1 ~SBTTL ASCIZ MESSAGES 
: 03671 \se MSG.R: .ASCIZ /R/ 
4 03671 1 1 MSG.FC: .ASCIZ /FC/ 
5 03671 114 10 MSG.LC: .ASCIZ /LC/ 
$8 7 111 1 MSG.IC: .ASCIZ /1C/ 
0367 106 124 MSG.FT: .ASCIZ /FT/ 
8 0367, 114 124 MSG.LT: .ASCIZ /LT/ 
90 1 111 124 000 MSG.IT: .ASCIZ /IT/ 
10 036 106 1 ; Onn MSG.FS: .ASCIZ /FS/ 
11 036737 114 1 MSG.LS: .ASCIZ /LS/ 
\¢ O30r te ico 101 124 MSG.PAT:.ASCIZ /PAT/ 
13 036746 07 000 MSG.EQ: .ASCIZ /=/ 
13 036750 200 103 117 ° eASCIZ <CRLF>/CONTROL SWITCHES=/ 
16 03677 040 057 040 SLASH: .ASCIZ @/@ 
17 03677 200 125 116 UNSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
18 037015 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
19 037026 040 117 19 UNTON: .ASCIZ ONL INE/ 
20 0370 040 136 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
$3 03705 040 12 116 NOTSAF: .ASCIZ / UNSAFE/ 
4 03 040 116 117 NOTRM: .ASCIZ @ NOT AN 
23 0371 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 
$e 03711 122 115 070 SRM80: .ASCIZ 0/ 
5 AES 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED, / 
0371 116 117 116 NONE: .ASCIZ /NONE/ 
037160 054 040 000 COMMA: .ASCIZ /, 
28 037163 072 040 000 COLON: .ASCIZ /: / 
0371 200 116 117 NOCLOK: .ASCIZ <CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/ 
0372 115 102 101 SERIAL: .ASCIZ @MBA S/N: @ 
1 037265 200 124 105 MSGTST: .ASCIZ <CRLF>/TEST/ 
3 O37673 200 104 \ MSDRIV: .ASCIZ <CRLF>/ORIVE/ 
037. § 040 104 1 DROP: .ASCIZ / DROPPED/ 
34 03731 105 130 103 EXCEED: .ASCIZ /EXCEEDED MAXIMUM ERROR LIMIT/<CRLF> 
2 037351 200 116 117 NODRVS: .ASCIZ <CRLF>/NO DRIVES 10 TEST/<CRLF> 
3 037375 200 116 117 NOTEST: .ASCIZ <CRLF>/NO TESTS SPECIFIED/<CRLF> 
3 Osrtes 2 01 196 ROTATE: .ASCIZ <CRLF><LF>/ROTATIONAL SPEED TIMES/ 
9 0374 01 117 ONECYL: .ASCIZ <CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/ 
40 037520 2 01 101 AVERGE: .ASCIZ <CRLF><LF>/AVERAGE SEEK TIMES/<CRLF>/ * FORWARD/ 
41 037560 206 01 115 MXSEEK: .ASCII <CRLF><LF>/MAXIMUM SEEK TIMES/ 
42 037604 200 040 O36 FWD: eASCIZ <CRLFD>/ * F D/ 
43 037620 200 040 052 REV: eASCIZ <CRLF>/ * REVERSE/ 
re 0376 200 012 101 MEASUR: .ASCIZ <CRLF><LF>/AVERAGE SEEK TIME MEASUREMENT/ 
$8 0 rer 200 115 111 MSGMIN: .ASCIZ <CRLF>/MIN=/ 
47 0 3 200 115 101 GMAX: .ASCIZ <CRLF>/MAX=/ 
48 03771 500 101 136 MSGAVG: .ASCIZ <CRLF>/AVG=/ 
49 03771 040 1 MSGOUS: .ASCIZ /0 US/ 
50 O776 040 102 105 MBELOW: .ASCIZ / BELOW THE MINIMUM OF / 
51 037752 040 101 1 $ VE: .ASCIZ / ABOVE THE MAXIMUM OF / 
26 etaigd 040 133 1 MSGSCH: .ASCIZ / SEARCHES TIMED/ 
5 iH 040 123 105 MSGSEK: .ASCIZ / SEEKS TIMED/ 
Re 8300 040 116 117 MSGNOT: .ASCIZ / NOT TI 
55 040051 648 BLNKS4: .ASCII / / 
56 Bones 0 Erie ASCII / / 
57 04005 040 BLNKS2: .ASCII / / 
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ASCIZ MESSAGES 

28 0054 040 000 BLNKS1: .ASCIZ / / 

5 0056 101 114 114 MSG11X: .ASCIZ /ALLOWABLE ROTATIONAL SPEED LIMITS FOR RM8O/ 

60 et 1 101 114 114 meet gt: eASCIZ /ALLOWABLE ONE CYLINDER SEEK LIM 

61 0401 H 101 114 114 MSGI3X: .ASCIZ /ALLOWABLE AVERAGE SEEK TIME LIMIT/ 

62 04023 101 114 114 G14xX: .ASCIZ /ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT/ 





r+ 4e4 
attr 
SVuUVOW—w— 


VMIFWN—OVOONOULSWN— 


RRRRRRLLRELLE 


ad td ed 
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M) MESSAGES 


~SBTTL ERROR HEADER (EM) MESSAGES 


1 ¢ 110 960 EMI: «ASCIZ /RH CONTROLLER INTERRUPT OCCURRED (RMAS=0)/ 
1 116 05 EM: eASCIZ /UNEXPECTED ATTENTION OCCURRED/ 

101 104 104 EM): ~ASCIZ /ADDRESS PLUG CHANGE BIT SET 

122 110 040 €M10: .ASCIZ /RH CONTROLLER FAILED TO RESPOND TO ADDRESSING/ 
1 lee 1171 EM11: .ASCIZ /DRIVE SELECTED IS NOT ONLINE/ 

111 11 120 EMi2: .ASCIZ /IMPROPER HEADER DATA/ 

104 101 124 EM13:  .ASCIZ /DATA COMPARE FAILURE/ 

104 111 123. EM17: .ASCIZ /DISK ERROR IN TIMING TEST/ 

103 114 117 EM20: .ASCIZ /CLOCK (KW11-P) OVERFLOW IN TIMING TEST/ 
104 111 Is EM23:  .ASCIZ /DISK ERROR DUR 

123 105 105 EM24:  .ASCIZ /SEEK NOT COMPLETE WITHIN 120 MS/ 

122 110 057 EM41: .ASCIZ @RH/RM ERROR@ 

106 101 126 EM46: .ASCIZ /FATAL WRITE CHECK ERROR/ 
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STATUS/ERROR INDICATOR MESSAGE 
1 ~SBTTL STATUS/ERROR INDICATOR MESSAGES 
g 05197 117 106 1 MSGB14: .ASCIZ /OFFLINE OR UNSAFE DRIVE REQUESTED/ 
4 04114 \s3 11 1 MSGBO9: .ASCIZ /SOFTWARE TIMEOUT ON THIS DRIVE/ 
5 04117 1 117 1 MSGBO8: .ASCIZ /SOFTWARE TIMEOUT ON ANOTHER DRIVE/ 
6 edt 3} 105 \$s 1 $241 b eASCIZ ‘ERROR OCCURRED DURING 1/0 OPERATION’ 
7 061305 105 1 122 MSGB05: .ASCIZ ay OCCURRED DURING NON-1/0 OPERATION 
8 041355 125 116 12 SGB04: .ASCIZ /UNSAFE OCCURRED/ 
9 041375 104 122 111 MSGBO2: .ASCIZ 7DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 
10 041445 104 122 111 MSGBO1: .ASCIZ /DRIVE HAS BECOME NON-EXISTENT/ 


SEQ 0166 | 
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DATA HEADER (DT) MESSAGES 

1 ~SBTTL DATA HEADER (DT) MESSAGES 

3 041503 105 1s 1s DH1: eASCIZ /ERR PC RMAS/ 

4 06 1369 105 122 1 DHe: eASCIZ /ERR PC DRIVE RMAS RMDS RMER1 RMMR2 = RMER2/ 

5 04160 122 115 105 DH10: .ASCIZ /RMCS1 ERR PC/ 

6 041624 104 ise 111 DH11: .ASCIZ /DRIVE ERR PC/ 

7 041643 124 1 Is DHi2:  .ASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK  SECTOR/ 
8 041732 107 104 103 DH12A: .ASCIZ /GDCYL GDTRK GDSCTR BDCYL DIRK BDSCTR/ 

9 042011 107 104 104 DHI3A: .ASCIZ /GDDAT BDDAT WRDCNT GDADR BDADR/ 

10 042057 124 105 133 DH17: .ASCIZ /TEST ERR PC DRIVE RMCS1 RMDS  RMERI RMMR2 RMER2/ 
11 042154 124 105 123 DH21: .ASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK/ 

\g 042232 107 104 19 DH21A: .ASCIZ /GDDAT BDDAT WRDCNT SECTOR/ 

13 042271 124 105 123 DH23: .ASCIZ /TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2  RMDS/ 
14 Bos73e 122 115 105 DH23A: .ASCIZ /RMERT RMMR2 RMER2 RMDC RMHR/ 

15 04242 124 105 123 DH41: .ASCIZ /TEST ERR PC TST PC DRIVE/ 

16 042461 124 105 123 DH42: .ASCIZ /TEST ERR PC TST PC DRIVE RMCS1 RMCS2  RMDS/ 
17 042546 122 115 105 DH43A: .ASCIZ /RMER1T RMMR2 RMER2/ 

18 042574 122 115 103 DH44A: .ASCIZ /RMCS1 RMCS2 RMDS_ RMHR RMDC RMDA/ 

19 042650 122 115 105 DH44B: .ASCIZ /RMERI —_ RMER2/ 
3 042676 122 115 105 we eASCIZ /RMER1 RMMR RMER RMWC RMBA RMDB/ 
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DATA TABLE (DT) 


1 .SBTTL DATA TABLE (DT) 

7 042754 00113 001204 DT1:  .WORD S$ERRPC,$REG3 

4 04 760 001132 001 901204 Dre: "WORD $ERRPC. $REG1, $REG3, RMERRS ,RMERRS+2, RMERRS+6 ,RMERRS*+4 

5 042776 00121 001132 001200 DTS: .WORD $TMPO, $ERRPC.$REG! .$REGS ,RMERRS ,RMERRS+2,RMERRS+6,RMERRS*4 
6 043016 001522 00113 DT10: WORD RH.ADR,SERRPC 

7 043022 001202 001132 DT11: .WORD  $REG2,$ERRPC 

8 043026 gorele 001132 001176 DT12: .WORD $TMPO,S$ERRPC,$REGO,CHKDRV,CYL.DS,TRK.DS,SEC.DS 

9 043044 001 001372 001370 DT12A: .WORD CYL.DS,TRK.DS,SEC.DS,CYL.RD, TRK.RD,SEC.RD 

10 043060 001212 001132 001176 DT13:  .WORD $TMPO,SERRPC,$REGO,CHKDRV,CYL.DS, TRK.DS,SEC.DS 

11 043076 001140 001142 001206 DT13A: .WORD $GDDAT,SBDDAT,SREGS,$GDADR, SBDADR 

12 043110 001212 00113 1352 DT17: WORD $TMPO,$ERRPC,CHKDRV,RM.REG,RM.REG+12,RM.REG+14,RM.REG+40,RM.REG+42 
13 043130 001212 001132 001176 DT21:  .WORD $TMPO,SERRPC,$REGO,CHKDRV,CYL.DS,TRK.DS 

14 043144 001200 001142 001206 DT21A: WORD $REG1.$BDDAT.$REG4,SREG 

15 0643154 001212 001132 001352 DT23:_ .WORD $TMPO.SERRPC.CHKDRV,CYL.DS,RM.REG,RM.REG+10,RM.REG*12 

16 043172 036654 036700 036702 DT23A: .WORD RM.REG+14,RM.REG+40,RM.REG+42,RM.REG+34 RM. REG+36 

17 043206 001212 001132 001176 DT41: .WORD $TMPO,SERRPC,$REGO,CHKDRV 

18 0643214 001212 001132 001176 DT42: .WORD $TMPO.SERRPC,S$REGO,CHKDRV,RM.REG,RM.REG+10,RM.REG+12 

19 043232 001212 001132 001176 DT43:  .WORD $TMPO.SERRPC.S$REGO,CHKDRV,RM.REG,RM.REG+10,RM.REG+12 

20 043250 036654 036700 702 DT43A: .WORD RM.REG+14,RM.REG+40,RM.REG+42 
51 043256 001212 001132 001176 DT44:  :WORD $TMPO,SERRPC,SREGO,CHKDRV,CYL.DS,TRK.DS.SEC.DS 
22 043274 036640 036650 036652 DT44A: .WORD REG, RM.REG+10,RM.REG+12, RM. REG+36,RM.REG*+34,RM.REG+O6 
53 043310 036654 036700 036702 DT44B: .WORD RM.REG+14,RM.REG+40,RM.REG+42 
5% 043316 001212 001132 001176 DT45:  .WORD $TMPO,SERRPC,S$REGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 

55 043334 036640 036650 036652 DT45A: .WORD RM.REG,RM.REG+10,RM.REG+12,RM.REG+36,RM.REG+34 .RM.REG+06 
56 043350 036654 036700 036702 DI45B: <WORD RM.REG+14.RM.REG+40,RM.REG+42,RM.REG+2,.RM.REG+4 ,RM.REG+22 
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~SBTTL DATA FORMAT (DF) TABLE 
DF1: 


Ww 


sNUMBER OF DATA HEADERS 
ZNUMBER OF WORDS IN DATA TABLE 
sALL 3 NUMBERS ARE OCTAL 


3 SF 


DF2: 


WAG 
aes 
oO 


DF3: 


WUIW 
SSS 
™ 


DF4: 


RRR RRR KEK KRE 


€ SRF 
ans 


~ 


DF10: 


Ie 


WRONG WRONGSE WHO N 


DF11: 


See ee 


DF12: 


RR RRR KEE 


6 DH'S TO BE TYPED 

37 DATA WORDS FOLLOW THE 1ST DH 
zWORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
sADDRESS OF 2ND DH 

36 DATA WORDS FOLLOW THE 2ND DH 

sALL WORDS ARE OCTAL 


=a 
at) 
™ 
> 


xro 
=o 


WWUINIRN RMN 


RRRRRR KERR 
REEESE FESES 


;WORD 3 IS DECIMAL 


; 
S 
5 
6 
4 
8 
9 
10 
He 
i 
16 
15 
16 
17 
18 
19 
20 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4) 


S 
s 


sWORD 3 IS DECIMAL 


»— L£UNO SUGANIN CODA]NIN COM SCNh— COV Of ON Or 


—f£000N © 
xzro 
—~ 
ob 
> 


MUMIA IIn = 
YRURUNVS SELES & 
& 


eo 
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DATA FORMAT (DF) TABLE 
38 043457 014 BYTE 14 
60 04 $ DF23:  .WORD $ 
61 04 -BYTE 
66 6 10 BYTE 10 sWORD 4 IS DECIMAL 
o7 64 042 3 ee te 
65 04 7 $00 BYTE 0 
6? 
68 043470 000001 DF41: .WORD 1 
§? 04347. 004 BYTE 4 
oY 04347 000 BYTE 0 
% 043474 000001 DF42: .WORD 1 
73 04347 007 BYTE 7 
ie 04347 000 BYTE 0 
76 043500 000002 DF43: .WORD 2 
77 RES 007 BYTE 7 
78 04350 0 BYTE 0 
79 043504 042546 WOR DH43A 
80 043506 BYTE 3 
3 043507 -BYT 0 
83 043510 000003 DF44: .WORD 3 
84 043512 007 BYTE 7 
85 043515 16 -BYTE 160 
86 043514 042574 ~WORD DH44A 
87 043516 BYTE 6 
88 043517 0 BYTE 0 
89 043520 042650 WORD DH44B 
90 043522 00 BYTE 3 
4 043523 BYTE 0 
93 043524 000003 DF45:  .WORD ; 
94 043526 007 «BYTE 
95 043527 160 BYTE 1 
96 043530 042574 -WOR DH44A 
97 obsess -BYTE 
98 04353 000 -BYT 
99 043534 042676 -WORD DH45A 
100 043536 006 BYTE 6 
10 043537 000 BYTE 0 
103 -SBTTL START OF READ/WRITE BUFFER 
104 043540 BUFFER: 
105 
106 


000200 -END 200 
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SYMBOL TABL 


E 
E = 000000 AT4 == 000020 C13 032724 DH17 42057 dT1 043 
ACDW1 = 000000 AIS = 4 C14 0 083 DH 41520 BTI3A Oe307@ 
ACDW2 = 000000 AT = 00010 C15 8 66 DHe1 42154 DT17 311 
ACPUOP= A = 0002 C18 719 DH21A 32 DT 034/95 
ACTORV 031 $ = CKSWR = syeee DH ¥4 ?1 DT21 0431 
ACTSTR 031 WR = 000000 Ck. CHR 0644 DH 83 3 DT21A 3162 
ADDWO = 000000 AVECT1= 000000 CK.DEC 920618 DH41 4242 DT23 154 
ADDWi = 000000 AVECT2= 890008 . 0720 ore BeSee) DT23A 3172 
ADDW10= 000000 AVERGE 0375 CK.NUM 031104 42546 D141 043204 
ADDW11= 000000 Aié = 000400 CK.OCT 030570 DH44A hte ores 043214 
ADDW12= 000000 Ai7___ = 0010 CLKSTA dh a H44B 042650 DT4 043232 
ADDW13= 000000 BADTMO 003176 CLOSE 03051 45A BReee DT43A Oossee 
14= BAI = 0 LR_ = 000040 DISPLA 001156 DT44 043256 
ADDW15= 000000 BASFLG 001466 CLRQUE 036134 0001 DI44A ae th 
ADDW2 = 000000 BITS 001560 CNTCLR 02314 DLT = 100000 DT448 043310 
ADDWS = 000000 BITO = 000001 CNTRLC 00132 = 000001 D145 043316 
ADDW4 = 000000 BITOO = 00009 COL 03716 DORTI 025662 DT45A 043334 
ADDWS = 000000 BITO1 = 000002 C 037160 DPB.A 0. 6206 DT45B 043350 
ADDW6 = 000000 BITO2 = 000004 CONT. = 000100 DPB. 0365 DTS 042776 
ADDW7 = 000000 BITOS = 00001u COUNT 025726 PB. 036552 DVA = 004000 
ADDW8 = 000000 B1T04 = 000020 CPSAVE 016332 . pa8e!8 Dvc § = 000200 
ADDW9_= 000000 BITOS = 000040 CR = 000015 DPE = 00001 E = 020000 
ADEVCT= 000000 BIT06 = 000100 CRLF = 000200 DPINT 031262 ECH = 000100 
ADEVM = 000000 BIT07 = 000200 CYINC.§ 001510 = 000400 ECI = 004000 
AENV. = 000000 BITO8 = 000400 CYL.DS 001366 DPRQS Ee ECRC = 001000 
= 000000 BITO9 = 001000 CYL.RD 001360 DRIVES 03712 EECC = 000020 
AFATAL= 000000 BIT1 = 000002 C.S 001314 037302 036166 
AMADR1= 000000 BIT10 = 002000 DCK = 100000 = 004000 EMTVEC= 000030 
AMADR2= 000000 BiTi1 = 004000 DDISP = 177570 DRVACT 031232 040311 
AMADR35= 000000 Bits = 010000 DECSEC 026632 DRVCLR= 000111 EM10 §=«=— 040455 
AMADR4= 000000 BIT13 = 020000 CSK 006330 DRVINT 031610 EM11 040533 
AMAMS1= 000000 BIT14 = 040000 DELTA 001450 DRYMSK 00135 EM1 040570 
AMAMS2= 000000 1T15 = 100000 DFLT 002456 DRVQUE 3366 EM1 040615 
3= 000000 BIT¢ 000004 DF1 043364 DRVSEL 001 23 EM17 at Fk 
AMAMS4= 000000 BITS = 000010 DF10 43404 DRVSTA os 4 EM2 06076 
AMSGAD= 000000 BIT4 = 000020 DF11 43410 DRVTYP 031252 EM2 040674 
= 000000 BITS = 000040 DF12 © 043414 DRY = 900698 EM2 04074 
AMSGTY= 000000 BIT6 = 000100 DF13 Oo eeSe DSWR = 177570 EM24 04077 
AMTYP1= 000000 BIT? = 000200 DF 14 04 DTADPB 036574 EM41 04103 
AMTYP2= 000000 BIT8 = 400 DF17 =: 043440 DTE = 010 EM46 «=: 041046 
AMTYPS= 000000 BIT9 = 001000 DF 043370 DTG = 8 0 040421 
TYP4= 000000 BLNKS1 040054 DF21 043444 DTO §8=—= 020 ERINDX 053008 
AOE = 001000 BLNKS2 040053 DF § 3454 DTUW 1354 1316 
APASS = 000000 BLNKSS 040052 DF $34 0 DTOO = id RR = 
IOR= eine BLNKS4 atte DF 43374 DTO1 = 2 ERRCN 151 
APTCSU= 0 BPTVEC= 14 DF4 4340 DTR¢ = 000004 RROR = 104 
BSE = 400008 DF41 04347 DT = 10 ERRVEC= 000004 
APTSIZ= 000200 BUFFER 04354 DF4 474 DT04 = 20 ERR.C 14 
SPO= 000100 BU 1366 DF4 500 DT0S = 0 ESRC = 
ASWREG= 000000 BYPASS 1356 DF44 $3210 dT ¢ = 8350 ES.SAV $ 
= 400000 CALL.A 024076 DF45 524 DTO7 = 20 EXCEED 1 
ATABIT 031356 CALL.B 024244 DH1 041503 DTO8 = 00 9? EXIT.A 011410 
000000 CALL.C 052396 DH10 41605 dT1 754 EXxITO 570 
AT = 000001 CALL.R oeert DH11 41624 DT10 8! EXIT! 11 
AT? = = 000002 CHANGE = of DH1 1643 DT11 § EXITI0 01056, 
Ate = 000004 CHKDRV 001 § DHi2A 36041732 ris 4 3 Ex1T11 13950 
AT = 000010 c11 03257 DH1 042011 DTI2A 045044 EXIT12 012126 
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SYMBOL TABLE . ie 
KITI3. 01 Lc 23 MSG.FT 0367 opr Von” i 
Bie es Hhow RE Beat Bh SER Bagh fa 
a aR RE LF Gores MSG.LC 036715 PAR = 000010 RD-RM1 0355 
EXIT¢ 09637 ny 1378 MSG.LS ors? oak gi? oe O3se80 
Hatt: rn L OPEL 4100 ms6-b i 674 PFECH 016754 RD.WRD 035572 
EXITS 0074 LODFLT 0 3316 MSG.PA te a S48 24 Fhe 006171 
ER 14 LooPRN O58033 Sats OSsrI6 PrECHD 019066 READHD= 000173 
EXIT? 010316 LOP.ck 095022 MSGOUS ! PFECHZ 017046 READHD= 000173 
FC 002324 t 001556 MSGTIX 040056 PFECHS 17100 READIN= 900121 
FER = 000020 LP 001554 MSGI2X 04013 RECAL = 000107 
i ae ee eH 
fu 3 US, 0g eee sats PHA = 900200 REV 037620 
FWD O0832 isc = 006 MwP = 000010 PHA = 0 REVO: 
f S SonpoE a2 igi ‘ y $0720 rRO z 0600 RHVEC 1526 
F2 = 000004 tst = 0020 MXSEEK 03756 PIRO = 17777 RH 1324 
F$ = 000010 LSTeK 001574 STAL 901462 900240 RH-ADR 01322 
FZ = 000020 tT 002354 w 031376 PKB 1536 RMADR _ 051566 
+ 0 E 03775 M.DPID 02265 900076 
a an to sn ae a EE 
GETREG= 00014 MCPE = 020000 a 2 022754 Soe = O36 wale 
222 F = 00: 44 0 
EE Srey MEASUR 0376 M:DP5O_ 093000 902820 moe : sses 
. 2 434 = 0000 
TSWR = 104406 ¢ = 000400 NCL 002346 PRAnSG 09 000012 
ea Ses + i 
= = 00274 = 
GTTST$ 027620 MPE = 000400 NEM = 004000 PRM] 0087 RMEC2 = 900046 
GTTST& 027 = 002000 NOASSY= 000001 5 ; 031206 
GITsts 087773 © sFmcst™ ueuoe © MCLO Q37Igs AMT. GOSIgG ERY ae 
er: 8 mec § NOTEST b37458 ORata 80 136 RMINIT 031 78 
a 34 OSORIV. $0008 TPRS 03703 PRM15 003166 RMLA = 0000 
Gre Re O50500 meen. 870808 NOTRA 037068 PRM 902764 RR = 000024 
> . = 
a re es i rg 
HT = 000011 SGB01 04144 OBEN = 04000 PANS 005056 RMR: 
INE AVE 463 aa a Ore OE 002 OR? 3072 RMTAR 0 
ie 002330 ae ve OFFSET= 00011 PRO = RAVE 
FS OobOst 197) On rh PRS E Bbo100 RMREG 
a a ce a ee 
iecere > - ROTATE 
ier ae ee eR 
iaree  O5aS ai 4 14 “A 050236 PRE = 000300 RSTART 
INCTRK 0265 MSGNOT 0036 eonMTST age PR = 
ed ne i a 
’ r ¢ = = 
a a a eee : 
$053 msc. 03674 OPN. X2 beey QDRV og : SAVCSW 
Ive = 010000 MSG. e719 OPN. 930074 RDCHR = 10441 SAVEFG 
= 002000 SG. b3e75% OPN.2 030116 RDLIN = 104411 SAVREG= 
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SYMBOL TABLE 











sc 034202 STATBL 901746 
SCOPE = STKLMT= 177776 
SCTRUC= 177400 S10” Os5126 
ts 
$11 034534 S108 035414 
Scie 054632 $105 035440 
sets Seot60 grog Beeson 
ee nett) $08 039584 
see 080570 SrOFMR OoeG64 
Ore See RA AmE ott 
sc8 034540 STRT2A oo 18 
SEARCH= 000131 T.CLK 02324 
Sets oT eee SST LTh 
k= 000105 VADR” 091440 
SEEKFG 031332 SVRH70 035764 
CN VS 
KCNT 001446 SVSTAT 001356 
KTMR 001444 wR 001154 
LDRV= 000145 SUREG 000176 
SERIAL 037253 $u0 = 000001 
oT oor ee fitted) 
=S 
SET.1é 036062 Su02 = 000004 é 
021410 $u03 = 000010 
SKCNT 001502 $w04 = 000020 AD 
Sy en ott Site E bop%00 TRIVEC ig 
= = 
SKS1Z 001506 suOe = 900200 TST 1532 
SKTIN 001472 $u08 = 000400 1810 544 
SLASH 03677 = 001000 TST! 908704 
SPTYP 02 Swi = 900002 TST10 010320 
SPIIA Su10 = re 
11a 001710 10 2 111 0105 
$P11B 001716 Sull = TST12 011486 
sig (Bb tSs sig Sh 135 
= 
SP14 1740 Sula = TST1S 01364 
SRCHWT 031324 WIS. = TST 1 
SRO Oozero sue Ef iste 4 
= 
SRTINT 004300 suas 1815 
SRVCLK 3504 Sw5 = TST¢ 
SRvCL  O50060 sug TST ; 
SSE1 = 001000 Su? TYPDS = 1064 
STACK = 001100 sug = TYPE. = 104601 
0252 sus TYPERR_ 0165 
STALLO 0014 TAB. XY= TYPOC = 1044 
STALL? 001454 tap = TYPON = 1046 
STALL2 00145 TBITVE= TYPOS = 104603 
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T.R4 574 
T.RS 574 
T.WD 571 
XXDP 1470 
THD 1 198 
SATYC 154 
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SATY3 154 
SATY4 15444 
SAUTO8 1 138 
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SYMBOL TABL 


E 
SMTYP1 1 $ SREG = 14 SSUPRS 244 
SATYP. 1271 SREGAD 1174 SSVLAD 17 
SMTYP 1275 SREGO 117 SSVPC = 
SMTYP4 001501 SREG] 1 $SUR_ = 94 
SMXCNT 0220 SRE 120 SSWREG 1 
L 1170 SREG 1204 SSWRMK= 

SNWTST= 1 SREG4 1206 STATUS= 318 

017674 SREGS 121 STESTN 124 

017676 SRESRE $$ 7 STIMES 1909 

R 022014 $RMB8O 0 03711 $TKB 11 

SPASS 001242 SRTNAD 0154 STKCNT 4 4 
SPASTA dil SSAVRE 0 $37 STKINT 8 1 
SPSEL = 800083 $SB2 02221 STKQEN= 020133 
SQUES 001 S$SCOPE 02143 STKQIN 0 3158 

022502 $SEC = 000010 $TK oso! 
SRDCHR 020776 SSETUP= 000167 $TKQSR 020132 
SRDLIN 021066 SSSENB= 900060 TKS 001160 
SRDSZ = 000024 $STUP = 177777 STKSRV 020204 
- ABS. 043540 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 57856 WORDS ( 226 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGE 
2A: CZRNGA/C=A:CZRNGA.DOC ,CZRNGA,SYSMAC/M 


iad a od ed 
AOQ SN 


17. 
17 
17 
17 
17 
1 
1 
1 
1 
1 


SMOSH W 
SUN 


ss 
Se 


33 

= 
Wron 
ow 


[=] 
Nm 





SSaNNOSS 


3 


SEQ 0175 


G 14 


” tas 07:05:59 PAGE S-1 


vee. 


T4 MACRO 
E (CREF 


CZRNGAO RM8O FCTNL P 
CROSS REFERENCE TABL 


6-04 


6-04 


6-0 
6-0 


o So 
‘ iy 
so oO 
= 
o oS i=) 
a uy u 
oOo oOo o 
o So s 
‘ iy o 
oo wo ~o 
N 
=_ o S&S om 
6 a é ‘8 
N oo oO wo 
~ - 
ax 
~ 
7 ‘y 
N oOo oO volo) 
N - 
NM 
- o S&S om 
a i 4 me! 
™N o oO ol—} 
Pav) - 
J ~~ 
8 q 4 eee ee 
™N ~ oa ovowond woow 
N -f —-~w 
* = Nw 
- - -f osos om= 
3 eI i J eee J d é 
Nm ~ ao wovowvo woow 
N ™N re om 
= 
* wr et 3 = ~w 
7 T TTERTTEEEEE et 
~N Nm reMenw ne) 
= * 
22 ~ 2K eee N 
TUTTE TEED TTTT TELE EEL 
w WO anbd ral al Onno ooDON 
SCAN | eee om - 


wu S222 Ban 
TELADSESESELE SruTeeeae 
£138 e me By Se, 5 2 
SSERSPESERISsuso- gy ose 
Peer eeereEET pet & 585 


SCOMND 33-203 


SCNTLU 22-1 


S 
© wv o 
“ oS 
con 
Lad a 
NN al 
77 , 9 
corm wm 
MM = wv 
* 
wn = 
= ~~ t. 
new mw 
cova! = wv 
a 
Se] 
- 
ma ~» oo 
‘4 Q r] 
nw ~m we 
~~ Ds w 
= 
—- 
e™ 
oe nw wv 
3 ma) q 
nw we wn 
Ca ON) N- wT 
x 
~» a 
co ~ 
ne MN wv 
3 ma) i 
ww ae wn 
—™ N= sa 
e 
o 
oo ~ wv 
Gr -— meu 
$8 ‘4 ‘6 
an ae AWN 
Ck Ne we 
we 
- - 
oOo - rer -— 
Tr Weeer FN = 
‘8 4 eee im] ’ 
NO ao Mmmm cm Fr- 
a 
oz O& 
a wom OS zo 
or - NMP rr See = 
4 6 6068s ‘8 4 
= QO ANMPMm RMN Fe 
-— —- MMNEN esr &— 
oa = Bx me & «co 
Tw7- - = Se NererNmnr see &— 
‘3 a 4 oeoeeee 8 $6 U 
—O ~ WwW RONMAMMM RM & 
-—- ~ S- Fe MeleVeEN eT &— 
~ a * 
Sa w i=] ew nu hu 
oc — ~ eh eerhere fr See =— 
bad i] a ‘6 eevee 8 ‘8 V 
Le] Oo N Re OCONMRMMmM RM WH 
erm cw ~ Ser SEV FEN eT = 
a 
N ~ = * * *#@ 
omMo cz Tz ee 2m Oo Woo 
Ae Ne NE -—O www a eM 
boa ‘eo ead te oee08 8 4 eee 
Le] vo MMe OCONWANST RNoOWN 
erm tu MAK SK SSC er reer Sete 
e 
~ w = & ew 
Oc «oO ® mM Br T7ekcsO NOR Mr. 
KA ASHE whe dew ee oe ee 
im es 8 PN 8 ‘6 ee eeebes 
ou ok MAKOK-NOOTK-ROFTRRMNOWN 
eeM —cuc eT Yk el eel pk ek el ok ek ol el ol ce el ed 
MO ea = 
~ - 
aocom o ~N nN NveaNw 
PESVTTTTT TTT TTT E EES 
orn ~ Nenown as cs] 
= a] Ko 2 @O 
SSaiaarseeezesssce ss Es 
8 BRBSBRSRBSRSSS BS BS 





SEQ 0176 


3-75 3- 


H 14 


” alata 07:05:59 PAGE S-2 


oe. 


CZRNGAO RM80 FCTNL PT4 MACRO 
CROSS REFERENCE TABLE (CREF V 


SESCAP 
0" 
-12 


232* 
198 


~1* 
-158 


32-610* % 


17-1 


17-1 
32-576* 32-603 


17-1 


1377668 ay yo 17-1 
32-439% 32-456* 32-572 


® 
* 


g: ii 


3-5 
=2098 


_ 





13-239 13-274 13-316 13-380 


13-170 


16-1* 


16-1* 


29-1 
$3 
De 
17-1 
19-1 


13-286* 


13-330 
23-1* 


23-1 
17-1 
13-44% 


13-274% 


10-32* 
23-1 


4-40 
SLPERR -0# 
18-2508 
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STSTR 23-14 

“$A STA eh, g-1 
“124 

ai o=hee 


Al 4-878 
ABASE 6-0 


6-0 
ACDW! 6-0 
ACDW2 6 
ACPUOP =0 6-0 
ACTDRV ; “1184 35-13* 33-308 36-3* 36-11% 37-6 
ACTSTR “1244 37-8* 7-23* 
ADDWO 6-0 
ADDW1 6-0 
ADDW10 -0 
ADDW11 6-0 
ADDW1 6-0 
ADDW1 6-0 
ADDW14 6-0 
ADDW1S5 6-0 
ADDW2 6-0 
ADDW3 6-0 
6-0 
ADDWS 6-0 
Dw6 6-0 
ADDW7 6-0 
ADDW8 6-0 
Dw9 6-0 
ADEVCT 6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
AFATAL 6-0 6-0 
6-0 6-0 
AMADR2 6-0 6-0 
AMADRS 6-0 6-0 
AMADR4 6-0 6-0 
1 6-0 6-0 
AMAMS 6-0 6-0 
AMAMS 6-0 6-0 
AMAMS4 6-0 6- 
SGAD 6-0 6-0 
GLG 6-0 6-0 
AMSGTY 6-0 6-0 


AMTYP4 6-0 6-0 

4-1604 
APASS 6-0 6-0 
APRI 6-0 


19-1 
APTENV 16-1 1e-18 17-1 19-1 
APTSPO 16-1 16-14 19-1 
ASWREG 6-0 6-0 
ATO 4-2124 
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AT} 4-2134 
AT2 4-2144 
ATS 475128 
ATS 4-2164 
ATS 4-2178 
AT 4-21 
AT 4-21 
ATA 4-1478 
ATABIT {ish 32-10 32-21 32-<23 -352-<29 0-33-1604 34-99 35-96 35-100 35-167 36-224 36-238 36-246 36-268 
ATESTN 6-0 6-0 
IT 6-0 6-0 
SWR 6-0 6-0 
AVECT1 6-0 6-0 
AVECT2 6-0 -0 
AVERGE 7-0 41-404 
TMO 10-34 10-34 
4-1044 
BASFLG 7-04 13-81* 
BI 4-804 
BITOO 4-80 4-804 7-0 7-0 11-8 12-39 17-1 17-1 23-1 23-1 32-146 
BIT01 4-80 4-804 7-0 7-0 32-457 32-485 35-49 35-251 
B1T02 4-80 4-804 7-0 7-0 32-457 32-488 
BITOS 4-80 4-804 7-0 7-" 
BI 4-80 4-804 7-0 7-0 32-491 36-221 
BITOS 4-80 4-804 7-0 7-0 32-494 36-219 37-54 
BIT06 4-80 4-804 7-0 7-0 32-497 34-106 35-40 35-111 36-53 38-116 
BITO7 4-80 4-804 7-0 7-0 34-106 35-221 36-23 36-219 36-221 36-242 38-77 


08 
BITO9 4-80 4-804 7-0 17-1 17-1 23-1 23-1 32-500 35-145 37-52-— 


BIT11 4-804 7-0 23-1 34-81 35-72 35-88 36-269 

BIT12 4-804 7-0 32-457 34-76 34-94 34-106 35-51 35-84 38-19 38-54 38-117 

BITI3) 4-804 7-0 7-1 32-457 36-193 

BIT14 4-804 7-0 14-465 14-513 23-1 32-457 32-491 35-46 35-81 36-285 37-103 33-114 

BITi5 4-204 8 7-0 32-633 32-634 35-46 35-49 35-51 35-81 35-84 35-251 36-55 36-219 36-221 36-285 
37-52 37-103 37-110 

BIT2 4-8 37-110 

B1T3 4-804 

BIT4 4-804 

BITS 4-804 


BITS 7-08 13-44 13-79 13-109 13-141 13-170 13-239 13-274 += 13-316 13-380 14-23) 14-140 14-221 14~ 
14-388 32-<80 32-=14 32-243 32-203 = 32-243 . e 0 ee 305 


BLNKS2 10-130 18-63 18-89 18-96 18-103 32->32 41-57# 
BLNKSS 41-564 

S4 10-104 41-554 
BPTVEC 4-804 


BSE 4-2814 32-237 357420 
BUFFER 32-554* 32-556 32-558 


32-311 35-208 
rt 32-563 ~565 32-566 32-567 32-632 32-669 40-8 40-33 40-58 40-83 40-108 
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BUSADR 7-0# 10-15*  10-18* 2 39-13 39-15* 
BYPASS _7-0# 19-378 13-70* 18-5 is 1S-fi7" 13-149% 13-182 13-247" 13-282 13-324" 13-392* 14-54% 14-161% 14-2408 
14=326* 14-408* 14-452* 14-500* 


C.SWR 7-0# 11-7 11-19 12-39 13-182 14-58 «=—-'14=109 32-93. «= 32-103 0 32-113) 32-146 «932-209 §9— 32-284 9 32-325 
32-5 32=:55 32=:59  32-:60* 
CALL.A 12-4 19-85 13-90 13-840 16-54 14161 14-240 14-326) 14-408 914-453 14-501 9 32-225# 32-228 32-575 
L.B 13-70 13-95 13-121 13-128 13-382 13-156 13-187 13-193 13-208 =: 13-214 13-252 13-254 13-292 13-294 
13-296 13-298 13-300 13-302 13-360 13-395 32-2554 32-259 
CALL.C 13-94 13-394 32-2964 32-300 
L. 14-473 14-521 32-242 «32-275 «= 32-316 «= 332-4324 =32-435 
CHKORV 7-0# 12-13% 12-17% 12-22 15-1 32-35% 32-36 32-188 45-8 45-10 45-12 45-13 45-15 45-17 
45-18, 45-19 45-21 45-24 


35-36 35-110 35-141 35-143 35-144 35-146 35-148 35-157 35-164 35-166 35-178 35-183 35-187 35-189 
35-194 32-138 35-200 35-210 35-219 $32" $3-80~" 36-25 36-44 36-47 36-50 36-103 36-117 36-119 


oe 32-385 $-<s0 32=->41 32-0194 32-856 32-863 32-868  32-A15 





CK .NUM ; 
CK.OCT 32-<57 32-<61 32-<84 32-<88 32-279 32-898  32-A08 
CKSWR 917-1 17-1 235-1 25-14 

eLESTA 7-04 11-71 14-25 14-142 14-223 14-307 14-390 32-78%  32-80* 32-86% 


CLRQUE 

CNICLR 11-3 12-30 14-84 14-93 4-1 
14-352 14-365 14-367 = 14-467 = 14-5 

ovat 7-04 10-19% 10-26* 10-98 i =4 
11-65 12-49 14-583 32-19 32-740 32-750 32-765 41-274 


OUNT 14-95 1 14-257 14-269 14-343 14-355 32-6484 


03 14-105 14-177 14-195 914-197 14-254 = 14-266 39 14-277 14-279 = 14-340 
15 14-544 14-593 32-334 


CPSAVE ye ag Fat 17-1 17-1 17-14 17~it 17-1* 18-111 23-1 23-1 23-1 23-1* 23-1* 
CRLF 4-804 10-37 10-37 10-58 10-69 10-75 14-585 15-1 15-1 15-1 19-1 19-1 iti 53 
32-<17 9 39-53 39-54 41-14 41-17 41-25 41-29 = 41-31 41-32 41-34 41-35 41-35 41-36 1-56 
41-38 38 41-. 41-39 = 41-40 = 41-40 41-41 41-42 41-43 41-44 41-46 = 41-47 41-48 
CYINC 7-04 14-418% 14-419 14-456 14-488 14-541* 
CYL.DS 7-0# 32-233* is-5°* 32-305* 32-440" 32-571% 32-611* 45-8 45-9 45-10 45-13 45-15 45-21 45-24 
CYL.RD 7-0# 32-565* 45-9 
4-1664 
4-804 6-0 10-32 
DECSEC 32-8204 
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DF1 8-100 46-274 
DF1 8-114 8-137 46-344 
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CZRNGAO RM8O FCTNL PT4 MACRO 
CROSS REFERENCE TABLE (CREF V 


eines 3-6)" 
TREQ 

GETSWR 

GNS 


GTTSTS “< 
GTTST4 32=-<58 
GTTST5S $5054 
GTTST6 9 32-=61 
HCE 4-1584 
HCI 4-2584 
HCRC 41598 
T 4-804 
IAE 4-1614 
IBSAVE 17-1 
IC oF 
IE ~844 
ILF 4-1514 
ILR 4-1524 
INCCYL 32-8054 
INCEC 18-41 
NCSK 13-120# 
INCTRK 32-7884 
IOTVEC 4-804 
IR -1 
ISR 14-108 
IT 124 
ITEM41 - 
Ivc 4-2784 
LBC — 
LC 9- 
13-327 
LDCMD 12-36 
LF 4-804 
LKS 7-04 
LKV 7-04 
LODEV. 10-127 
LODFLT 11-11 
LOD: 13-44 
22-1824 
LOP.CK 32-244 
LP.AVL 10-88 
LPB 7-04 
LPS 7-04 
LPTAVL 7-04 
LS 9-144 
LSC 4-2778 
LSIT 4-1714 


3-150" 36-206 
10-6 
25 25-1 
5-1 5-1 
-<20 -<20 
$~<78 35-528 
-<154 
-14 
ae 32-<72 
2-<55 $5.76" 
32-<8 32-=19 
32-= 
32-=714 
32-268 32-309 
19-1 19-1 
17-1 17-1 
13-122 13-129 
-64 
13-124 
10-32% 10-32* 
14-199 14-281 
32-790 
18-37 
13-49 13-70 
13-332 13-397 


2- $5-41c8 
7s-h13* 32-116* 
11-20 32-1304 
15-99 13-109 
32-318 


36-284 
10-37 
25-1 
25-1 
2-<20 
2-=79 


32-<85 


32-=23# 


17-1 
13-153 


14-369 


13-70 
13-401 


19=1 


13-141 
32-443 


32-50* 


37-51 

10-58 
5-1 
5-1 
2-<20 
2-242 


32-<99 


17-1 
13-202 


14-445 


13-87 
14-183 


41-38 


13-170 
32-4534 


37-65 

10-69 

$2} 
5-1 


32-<20 


32-=02 


14-472 


13-123 
14-247 


41-39 


13-239 


¥94.00 15-JAN=82 07:05:59 PAGE S-11 
s. ) 


37-100 
10-75 


17-1* 
13-255 


14-493 


13-125 
14-333 


41-40 


13-274 


37-107 

15-1 
5-1 
2-353 


32-<22 


32-248 


17-1*% 
13-256 


14-520 


13-158 
14-440 


41-41 


13-316 


38-1784 

15-1 

e:! 
2-<17 


32-257 


17-1* 
13-303 


14-546 


13-203 
14-485 


41-44 


13-380 


32-264 


13-396 


32-597 


14-23 


2->05 


32-=74 


13-400 


34-32 


14-140 


18-52 18-66 
25-1 25-1 
32-=94 

32-807 

36-34 

13-249 13-257 
32-805 32-808 
14-221 14-305 


SEQ 0185 


5-1 
5-1 


13-284 
32-810 


14-388 






CZRNGAO RM8O FCTNL PT4 MACRO 
CROSS REFERENCE TABLE (CREF V 


4-1428 


3 


—— 
eeats 

Woe 

gee 


WR KKRARKRRHRKRESES 
Te SEate 
AV og 
Su Siwy 
~N te 


2 


RRRARRRRRWERS 


Nwdg 
PS 4 
Lv LY.) 


WW 
hor 


31-144 


41-324 


32-702 
41-59" 


41-484 


41-474 
41-464 


E 15 


a tet 07:05:59 PAGE S-12 


$127" 
13-$? 13-362 32-788 32-791 32-793 


32-737 = 32-744 «39332747 = 32-754 «= 32-764 


41-494 


SEQ 0186 


CZRNGAO RM8O FCTNL PT4 MACRO 
CROSS REFERENCE TABLE (CREF V 


3571 
14-585 


41-544 
41-524 


41-394 


32=>04 
33-293 
32-=88* 


13-220 


14-437% 
14-439" 


4-57 


32-733 
32-=964 
32-=91 


32-<45% 32-=37*% 
2->24 


2-=66 
36-38 


18-1154 


14-438 
14-440 


9-182 


32-=96 


32-=68 
36-247 


F 15 


re ore 07:05:59 PAGE S-13 


13-171 13-240 «= 13-275. 13-317) = 13-381 = 14-24 14-141 14-222 


14-449  14-483% 14-489% 14-490" 14-508 14-531 14-532" 14-533 
14-460 14-483 14-484" 14-485 14-487% 14-488 14-489 14-497 


11-36 32-139 «= 332-331 = 332-826 «= 52=>28 = 32-59 


32-=98  32->06 


32-=41% 32-=43* 32-=53 32-=55 32-=65 32-267 32-=75 8 32-=77 


32-=76 4 32-=78 32-=834 
36-290 


14-306 


14-535 
14-531* 


32->03 


SEQ 0187 


14-389 


G 15 


RM8O FCTNL PT4 MACRO ae ee 07:05:59 PAGE S-14 


CZRNGAO 
CROSS REFERENCE TABLE (CREF V 


PGE 4-1154 

PGM 4-1418 

PHA 4-1798 

pike Sab 

PIRQVE ret 
7 14-77% 14-86% 

C v4 14-676 14-524 

PKCS 7 4-78 1-35 
14-335% 14-337% 14-347* 

PKV 7-04 -75% 14-167* 

PLFS 4-1824 
35-80 35-131 35-220 

PRO 4-804 

PR1 4-804 

PR 4-804 

PR 4-804 

PRS 4-804 

PRS 4-804 

PR6 4-804 10-35 

PR7 4-804 

PRM 32-187 32-190* 

PRMO 9-21 9-714 32-134 

PRM 9-24 9- 

PRM10 9-24 99-1434 

PRM11 9-24 99-1524 

PRM12 9-24 99-1594 

PRM13 9-24 9-1654 

PRM14 9-24 99-1714 

PRM15 9-24 99-1774 

PRM2 9-24 9-904 

PRM3 9-24 9-994 

PRM4 9-24 99-1084 

PRES 9-24 9-1174 

PRS 9-24 1264 

PRM7 9-24 99-1354 

PRMLMT 9-284 13-352 32-148* 

PRMMSG 9-404 35-238 

PRMPT 9-218 2-155 32-186 

PS 4-80 4-8 10-95* 
35-11 35-12 35-58* 

PSEL 4-884 

PSW 4-804 

PwWRVE $308 

QDRV 33-9 38-131 38-149* 

RG 4-804 10-32 10-32* 

R 4-804 

RD.ADR seas" 8-12" 8-144 

RD.RM -83 Sd -1 
36° 212 7-41 

RD.RM1 1 

RD.RM3 -20 -234 

RD.RM4 2. 254 

RD.WRD 154 8-16 

RDCHR $¢-} 5-14 

RDLIN -14 2-;:83 32-<18 


14-2448 
36-241 


32=>10 


32-149% 


32->08 
te-31* 
35-68 


38-163 
10-32* 
35-144 
37-86 


32-<34 


14-246% 
32-654 
14-908 
14-361* 
14-330* 


38-1904 


32->20 


32-152* 


32-751 
14-100* 
35-114" 


38-165* 


38-108 


32=>39 


14-258* 


14-456* 


32-750 


32-153* 


14-192* 


38-179 


35-198 
38-42 


32-169 


14-274% 


38-191 


35-208 
38-81 


SEQ 0188 


14-344% 14-459" 14-507* 35-19%" 

74-99) 39-668 - 71 

14-174% 14-191% 14-249 14-251% 14-261% 14-263* 14-273 
14-464 14-503* 14-510* 14-512* 14-589* 32- 32-108* 
32-105* 32-106 

32-171 32-197 32-823 32->55 

14-362* 14-590* 32-596* 34-15 34-16% 34-45" 34-53 
38-192* 

36-25 36-44 36-47 36-50 36-103 36-121 36-155 


H 15 
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TABLE (CREF V04 ) 


C 
E 


32-211 32-212 32-279 32-320 
12-44 12-44 13-46 «=. 13-46) 332-574 = 332602 9 40-105 
14-93. 14-103 14-177 14-195. 14=254 «14-266 «= 14-277) 14-340 3=— 14-35 14-365 14-467 14-515 14-583 


18-105 $3.13 $0} $s. = 34 32-635 9 32-<30 «= 52-=93) 9=— 52-741 9 52-767 3=9— 354-54 35-52 35-55 35-115 
36-10 7-22 8-100 38-139 


39-20 39-38 «= (39-40 45-6 


14-469 14-517 32-235 32-237 32-240 32-266 74-968 32-270 32-273 me 32-309 32-311 32-314 
40-15 40 0-65 0-90 40-115 40-1304 45-12 45-12 


45-15 45-1 45-16 45-16 89 45-1 45-16 45-16 45-18 5-18 45-18 3=—s 45-19 45-19 5-19 
45-20 45-20 45-2 45-22 45-2 45-22 45-22 45-22 45°23 45-23 45-23 45-25 = 45-25 
45-25 45-25 45-2 45-26 45-26 45-26 45-26 45-26 45-26 
* a ae the 32-433 32-604 35-114 
= 2-33 2-598 33-1654 34-34 35-18 35-134 35-154 35-172 36-5 37-39 = 38-11 38-17 
35 mi 8-111 9-41 
34-99s -153 =246* 36-268* 37-77 


14-260* 14-334* 1o~356° 14-4618 14-509* 33-1774 a 34-81 34-93 35-72 35-87 35-148 35-166 
2-8 30-305 $782 36-599" 33-1814 30-950 30-948 34-76 35-258 32-133" 35-155* 35-173* 36-24* 


252% 54s 38-18 38-53 38-71% = 38-77 = 58-112" 9838-117 

35-90" 32-820  33-180# 35-141 35-164 35-178 
14-170% 14-247% 14-259 \e-5er" 14-345% 14-460* 14-508* 32-615* 33-1914 at 35-157 35-183 35-194 
14-91 14-175 14-252 14-264 «= 14-338 §=— 14-350) 9 14-465 = 14-513 9 33-1824 34-96 §89— 35-74 36-208 36-253 
34-83 

85 
33. 66 35-595 357307 35-30) 2-504 33-1834 34-100 38-66 34-412 36-254 
14-517 237 $6-5e9 2-270 32-273 i327" 32-314 $7" 35-1944 i723" 36-255 

~1 36-193 m253* 36-254% 36-255* 45-4 45-4 45-4 45-4 45-5 45-5 45-5 45-5 


4h 
35-1854 
34-95 35-144 35-146 35-187 35-189 35-198 35-200 36-50 36-121 36-123 


37-64 
14-108* 14-168* 14-199* 14-955* 14-281% 14-331% 14-369% 14-445 14-457" 14-472 14-493* 14-505* 14-520* 
34-31 34-33 35-12 





RMWC -103 =119 

ROTATE 7-0 7-0 41-384 

RPT ae 13-44 13-79 13-109 13-141 13-170 §=- 13-239) 13-274 = 13-316 )=— 13-380 §3=—: 14-23 14-140 -14-221 14-305 
14- 32->37 2" 32-2750* 32-2735* 

RSTART 12-54 12-2 15-6 

RSTRT1 11-76 12-1 12-19 





CZRNGAO RM8O FCTNL PT4 MACRO 
CROSS REFERENCE TABLE (CREF V 
RTC 4-2978 
RTURN 15-1 15-34 
SAVCSW 7-08 = 8=—-:11=6 11-10 
SAVEFG 10-94%  33-132# 35-2 2 
SAVREG 14- 14-9 14+1 
14-593 18-1 go-14 
37-3 38-6 -130 
sc -9 36-1534 
SCO 4-2628 
S$C1 4-2434 
$C11 “211 2374 
$1 -189 -2524 
C1 -180 183 36-2644 
sce 4-26 
SC =-1 36-172 
C4 -170# 36-192 36-197 
$¢5 169 36-17; 
SC6 36-185 36-2038 
$¢8 36-208 “212 36-216 
SCOPE 4-804 13-70 13-96 
14-595 
SCTRWC 4-3134 
SEARCH 4= -79 16-87 
SEC.DS 7-0# 2=-233% 32-264" 
SEC. 7-04 2=567% 45-9 
SEEK 64-2924 13-319 13-319 
14-334 14-346 14-408 
SEEKFG 33-1404 34-19 35-98 
SEKCNT 7-04 
SEKTMR 7-0# 
SELDRV 4-309 
ERIAL 12-50 41-304 
ET.IE 34-48 -78 35-42 
SETFOR 4-308# 12-42 12-44 
SETVEC 10-924 
SHUT 22-1 22-1 22-34 
SKCNT 7-08 14-6148 14-415* 
SkI 4-280 14-469 14-517 
SKIP 36-52 36-654 
SKSIZ. 7-0#  14-616% 14-417* 
SKTIM -7=0# = - 14-4108 914-413 
14-583 14-583 14-583 
SLASH 32-:82 32->38 41-164 
SP11A 7-04 «= ‘14-71 s« 14-128 
SP11 7-04 14-71 14-128 
sPig 7-04 14-204 
SP1 7-04 14-286 
SP14 7-0# 16-374 
SPTYP 14-128 16-128 14-204 
SRC -31. 14-148 14-240 
CHWT 33-1124 35-96 35-100s 
SRTDRV 10-99 11-34 
SRTINT 10-81 10-844 
SRVCLK 32-105 32-115 32-1204 
SSE 4-2744 36-48 
SSEI 4-257# 36-51 36-122 


2-:59% 
358 
14-177 
27-1 


367663 
14-19 
30-24 


36-227 


327" 
13-160 


32-440* 


14-54 
14-447 


35-261 
13-319 


14-480* 
32-273 


14-427 
14-413* 
14-583* 


14-374 
14-396 
36-224 


14-254 
32-627 


36-233 


32-568* 


14-161 
14-447 


36-159 
14-54 


14-481% 
32-314 


14-439 
14-476* 
14-583* 


¥96 80 15=JAN=82 07:05:59 PAGE S-16 
. ) 


14-2 
32-<1 


36-248 


13-263 


32-611* 


14-161 
14-461 


38-1104 
14-161 


14-528* 


14-484 
14-479 


14-277 
32-=83 


36-291 


13-305 


45-8 


14-171 
14-495 


14-240 


14-529 


14-490 
14-4798 


14-340 
32-249 


13-367 


45-9 


14-240 
14-495 


14-326 


14-583 


14-532 
14-479% 


14-352 
34-14 


13-403 


45-10 


14-240 
14-509 


14-408 
14-583 


14-539 
14-524" 


14-365 
35-14 


14-129 


45-21 


14-248 
32-214 


14-447 


14-583 


14-527*% 


14-467 
35-67 


14-205 


45-24 


14-260 
32-215 


14-495 


14-527 


14-515 
35-242 


14-287 


14-326 


14-527 


SEQ 0190 


14-548 
36-4 


14-375 


14-326 


14-583 


J 15 
CZRNGAO_RM8O FCTNL PT4 MACRO ¥04 580 15=JAN~82 07:05:59 PAGE S-17 
CROSS REFERENCE TABLE (CREF V04.00 ) 





st. 1 35-87 14-198 14-280 14-368 14-444 14-471 14-492 14-519 14-545 15-5 
T- PCL 

TACK - 13-7 13-93 13-119 13-1 13-151 13-154 13-185 13-206 13-250 
met a Vine Wace Macau As M409, 15-5 

STALLO 04" 13-19) a 41 #67986 36-766 $6-3508 13-212 13-218 13-219% 13-220 
STALL1 7-04 2-328 

STALL 7-04 

STALL 7-04 

TART 10-20 

START1 271 10-184 

START. =3 11-52 12-11 22-5 

START 5-5 

STARTS 5-7 

STATBL 7-04 

STKLMT 4-804 

STO 37-16 

STO1 37-444 37-88 

sT0¢ 37-43 37-47 37-774 

STO 37-79 

STOS 37-41 37-86 37-954 

STO06 37-81 

STO7 37-83 

STO8 37-104 

STO9 37-76 92 37-94 37-96 37-102 37-109 «= 337-1134 

STRTIA 10-16 

STRT2ZA 10-23 2 

Abin 7 14-166 14-243 14-329 32-6274 

SVRH70 14-84 14-93 14-103 14-177 14-195 14-254 14-266 14-277 14-340 14-352 14-365 

35-224 36-3 36-55 36-214 36-245 36-286 37-53 37-112 38-674 

SVSTAT 7-04 18-4 32-482 

SwO 4-804 

swood 4-80 4-804 

Sw01 4-80 4-804 

Swo0. 4-80 4-804 

SwO. 4-80 4-804 

SW04 4-80 4-804 

sw05S 4-80 4-804 32-103 32-113 

Sw06 4-80 4-804 4-58 14-109 32-93 32-685 32-724 

Sw07 4-80 4-804 32-209 32-;51 

Sw08 4-80 4- =1 

Sw09 4-80 4-804 

Swi 4-804 

Sw10 6-308 

SW11 4- 

Swi2 4-804 -45 13-80 13-110 13-142 13-171 13-182 13-240 13-275 13-317 13-381 

14-306 14-389 14-424 

Sw13 4-804 2-529 

SwW14 4-804 2-284 32-325 

Sw15 4-804 

SW 4-804 

Sl 4-804 

SwW4 = 

Sw5 4-804 


32-724 
13-286 


13-222* 


14-467 


14-24 


13-325 


14-515 


14-141 


SEQ 0191 


13-339 


14-593 


14-222 


CZRNGAO RM8O0 FCTNL PTS MACRO 
CROSS REFERENCE TABLE (CREF V 


4 
ss 4-808 
Sw8 4-804 
su9 4-804 32-453 
S317 13-381 
$x}, 95-251 
SWREG “14 10-32 
TI1A “0% 14-71 
118 7-0 14-71 
T1 7-0# 14-161 
T1 7-0# 14-240 
T14 7-0# 14-326 
TAB.XY 5-134 6 
TAP 4-2374 
TBITVE 4-804 
36-8 36-164 
TESTO 13-44 13-70 
1 13-79 13-92 
TEST10 13-380 13-392# 
TEST11 14-23. 14-714 
TEST12 14-140 14-1614 
TESTI3. 14-221 14-24 
TEST14  14- 14-3264 
TEST15 14-388 14-4084 
TEST2 13-109 13-1174 
TESTS 13-141 13-1498 
TEST4 13-170 13-182 
TESTS 13-239 13-2474 
TEST6 13-274 «=: 13-2824 
TEST? 13-316 13-324 


TIA. 7-0# 14-356* 
TIM.PT 7-0# 2-630 
TIM. 7-04 2-628 
TIMER 33-1454 35-108* 
TKVEC 4-804 1s 
TP50 14-71% 14-1284 
TP60 14-71% 14-1284 
TPB 7-04 10-44 
TPS 7-04 10-43 
TPSSO §=14-71* 14-1284 
TPS 14-71% 14-1284 
TPVEC 4-804 

4-804  10-32* 
TRCKWC 30 7-0# 32-150* 

4-904 
TRK.DS 7-0# 32-233* 
TRK.RD _7-0# 32-566* 
TRNSWT 33-1044 35-132* 
TRIVEC 4-804 

TO 13-444 


TS 
TSsT1 13-44 13-794 
TST10 «13-316 13-3804 


$5 


= ® aia 


. 
WNNNNWw 
|? 
eo 


ee ee ee ee 
hehe mse 


13-704 
13-924 


13-1824 


13-3244 
-9G* 


10-32* 
32-154% 


32-264* 
45-9 
35-245 


22-1 
14-128 
14-128 


32-120 
32-634* 
32-671* 


32-648 
35-252* 


32-305* 
35-257* 


15 
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10-32*  10-32* 10-3 13-45 13-90 
14-222 14-306 14-389 14-424 17-1 
3-1 23-1 23-1 23-1% 23-18 
22-1 22-1 
32-651 
32-672 

73 


32-730 
36-19%  36-204* 36-265* 36-272" 37-12 


32-440* 32-570* 32-611* 45-8 45-9 
36-21 36-22* 36-66% 37-48 37-62 


SEQ 0192 


13-110 13-142 13-171 13-240 13-275 
17-1 17-1 1?- 17-1 17-1 
23-1* 23-1* 32-453 32-577 32-685 


37-14% 37-68% 37-93% 37-99% 37-105 


45-10 45-13 45-21 45-24 
37-74% 


SEQ 0193 


L 15 
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CROSS REFERENCE TABLE 


13-44 13-79 13-109 = 13-141 Ss 13-170 »3=—s-:13-239) Ss 13-274 = 13-31 13- 14- 
32-131" 32-132% 32-<26% 32-<27% 32-<42* 3-273. ee 37338. 33-386. a 


11-73 
14-388 


72) 
eNUMTN 5 
SP KKK NM TNO. 
ne ee ee ee ee 
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a ee oe 


al N 
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13-275 913-317 = 13-381 


13-240 


25-14 32-;81 


22-1 


18-84 


32-322 32-552# 


32-281 
4-1384 
4-1778 
4-1174 
7-04 
4-156# 


38-38+ 
38-494 
38-42 


WRITE - 
WRL 

WRT .AD 
WRT.R1 
WRT .RS 


UPE 
US1 
US2 
US4 
VERIFY 
Ww 

wC 

WCE 
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WRT.R4 38-55 5-308 

WRT .RS ae SoM 

WRT. ~93 4-95 32-8 5-141 32-143 32-146 33-138 32-527 5-164 5-166 35-178 35-183 35-189 35-194 
5-200 35-219 35-230 36-117 36-119 36-12 6-126 36-216 36-226 38-364 

WRT.WD 38-36% 38-40 38-47% 38-504 


= 
Ww 


WRTHD 


XXDP 7-08 10-49% 10-52* 10-53 10-55* 10-60 10-71 10-123 «10-125 11-27 11-29 


N 15 
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ERRTYP 
ESCAPE 
EXIT 


o-13e9 
4 


4-114 
14-595 


6-0 6-0 


6-0 
13-44 


5-1 
10-320 


6-0 
6-0 


13-79 
25-1 


6-0 
6-0 


13-109 
25-1 


6-0 6-0 


13-170 
25-1 


13+141 
25-1 


13-239 
25-1 


13-274 
25-1 


13-316 
25-1 


13-380 
25-1 


14-23 
25-1 


6-04 


4-4 
° 32-<20 


3-03 35-555 a 


14-453 


32-264 
36-196 


14-85 
$371 
2-305 


32-440 
3-258 33-058 5 
5-440 39-400 5 


i $ScS¢e 
3 35289 


14-326 


4 - = 
$8 13-326 3 308 36-439 32-5 


25 
67 13-403 14-12 


14-140 


25-14 


13-187 
13-394 


14-353 


14-221 


33-378 
35-811 


14-287 





SEQ 0195 


14-305 


13-208 
14-54 


14-375 






B 16 
SEQ 0196 














TYPOCT 
TYPTXT 


WRITE 


ea 
13-79 
18-730 


13-79 


13-151 
13-109 


13-79 
13-380 


13-109 


16-108 
13-109 


14-374 


13-141 


5-141 
6-117 


13-193 


13-1 
ra 
13-170 


a 
4-1 
5-187 


14-195 
13-170 


13-8 
32-1 


15-1 


35-143 
36-119 
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13-999 
13-1340 
14-1314 


13-239 
ot 
5-198 


14-254 
13-239 


13-240 
32-753 


13-110 
32->06 


15-1 


35-146 
36-125 


13-378 


13-141 
14-140 


13-275 
32-763 


13-142 


15-1 


5-148 
6-126 


ies 
IES 
13-316 
oat 
14-277 
13-316 


25-1 


13-171 


15-1 


5-157 
6-216 


13-380 


13-170 
14-221 
13-380 
32-722 
36-4 

14-340 
13-380 


13-381 
32->37 


13-240 


18-52 


36-206 


13-2284 
14-2894 


14-23 
36-50 


14-352 
14-23 


25-1 
13-37% 


14-388 
25-1 


14-24 


13-275 


18-66 
35-166 


14-140 
13-239 
14-305 
14-140 
36-103 


14-365 
14-140 


25-14 


14-221 


14-5970 


14-221 


36-121 


14-467 
14-221 


13-44 
13-316 
16-1 
27-1 


14-222 


13-381 


32-<17 
35-183 


32-<33 
35-189 


14-305 
13-274 
12-385 
14-305 
36-155 
14-515 
14-305 
| 


